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ABSTTRACr 



Traditional Database Management Systems (DBMS) are capable of managing only 
alphanumeric data. The Multimedia Database Management System (MDBMS) prototype 
started at the Computer Science Department of Naval Postgraduate School in 1988 made 
it possible to capture, store, manage, retrieve and present different media information such 
as image and sound by using the current, modem computer technology. In the existing 
MDBMS, if a query references only formatted data, it is passed to Ingres directly, but, 
if a query includes media data, then the query is decomposed into multiple subqueries 
each of which must be individually processed, and the intermediate results of which must 
be recomposed to form the final result to be given to the user. This thesis will concentrate 
on complex queries involving nesting conditions and multiple selections which are not 
supported by the existing MDBMS prototype. 
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I. INTRODUCTION 



A. BACKGROUND 

Multimedia database management systems (MDBMS) manage multimedia data such 
as image data and sound data in addition to formatted data. Multimedia database 
management systems are currently attracting a lot of attention because of the demands of 
the new applications and the advances of the technology, making it possible to capture 
and store multimedia data in computers. Multimedia data broadens the communication 
between the computer system and the user. Many applications, military, publishing, or 
instructional, routinely need multimedia data. Although the cost of the hardware required 
to handle multimedia data is decreasing rapidly, the software needed to manage such 
multimedia data is lacking or does not match the needs. 

Studies on multimedia database management systems started in Computer Science 
Department of Naval Postgraduate School in 1988. Besides storing, managing and 
retrieving different media information, the MDBMS prototype also manages the 
interrelationships between formatted and media data. Text, graphics, images, sound, 
signals and video ,^e the elements of multimedia data. What is common about them is 
that they all require rather large storage space and consist of a large and varying number 
of small items, like characters, pixels, lines or frequency indicators stored together in 
some way to form a unit. They all have a more complicated structure than formatted data, 
and require the use of Abstract Data Type (ADT) concept. With this approach, image. 
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sound, signal, text and graphic data will be treated as new data types. Any attribute of an 
object can have one of these types. Currently can use the database operations, create, 
retrieve, modify and delete, on these new media data "values". 

In our current prototype system we use separate files to store the media objects 
because of their high storage requirement A media object is the value of a media 
attribute. An image, for example, is a media object, but it is also the value of the attribute 
picture, just like "John" being the value of the attribute name in an Employee relation. 

The main task of MDBMS is storage and retrieval, but not processing of data. The 
storage and retrieval of multimedia data should be done by the content of the data, but 
handling content search is a difficult problem, since it is not possible to use the methods 
currently done on formatted data structures. 

Since automatic recognition of the contents of media data by the computer is not 
possible using today’s technology, the decision was made in the MDBMS project to use 
natural language descriptions to specify the contents of media data. A Prolog parser was 
constructed to understand the meaning of the natural language captions describing the 
content of the media data. When the user makes a query related to multimedia data, the 
PARSER recognizes syntax and semantics of the natural language description and 
interacts with the MDBMS to locate the appropriate data items [REF6]. 

INGRES is used to store and manage the data. However, many of the tables are 
transparent to the users. For example when the user wants to create a table which includes 
media data using a SQL statement, the system creates a separate table for each media 
attribute in addition to the tables for formatted data. 
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B. RELATED WORK 



Besides the MDBMS Project at Naval Postgraduate School, there are a number of 
researches going on in multimedia data processing around the world. Among those, the 
MINOS system [REF4] developed by a team at the University of Toronto manages highly 
structured multimedia objects that consists of attributes as well as the text, image and 
voice part. Sophisticated browsing and user interface features allow the browsing of the 
schema as well as synchronized updates. The MCC Database program [REF15, REF16] 
also undertook several multimedia projects by establishing the database requirements of 
multimedia applications. They identified requirements for a data model and for the sharing 
and manipulation of multimedia data. An 0-0 database management system named 
ORION has been developed at MCC in Austin/Texas, which contains a Multimedia 
Information Manager (MIM) for processing multimedia data [REF14]. The IBM Tokyo 
Research Laboratory has developed two "mixed-object database systems", which are 
named as MODES 1 and MODES2 [REF5]. In Europe there is an ESPRIT project 
designing a multimedia filing system called MULTOS [REF2, REF3]. 

Recently multimedia management in the personal computers becomes available by 
using hypertext and hypermedia. The concept of hypertext is very old; it has been 
transferred to computer systems since 1960’s. Originally intended to manage arbitrarily 
linked text segments, it has been extended to manage images and sound, and has become 
"Hypermedia" [REF7]. The hypertext and hypermedia data management in the Macintosh 
computer with a hypercard application has many users, including the ARGOS project 
being developed at Naval Postgraduate School [REF13]. The hypertext and hypermedia 



3 



data management uses the hierarchical data structure approach, in which users cannot 
query the data as done in the conventional DBMSs, but have to follow the hierarchical 
tree structure to process a media. As a result, the users might easily get lost during a 
process. Additionally, hypertext requires an interpreter to process the user commands. 
Furthermore, the hypertext and hypermedia data cannot be accessed by other users, as in 
the database systems, because they are designed to work only on personal computers in 
the single user environment. MDBMS, which is a DBMS introduced in [REF6] with the 
extended capability to process the multimedia data, was designed to overcome the 
restrictions and disadvantages of hypertext and hypermedia systems. 

C. THE SCX)PE OF THE THESIS 

The overall design of the MDBMS prototype was a team effort and is given in the 
thesis by Wuttipong Pongsuwan [REFIO], Yavuz Atila [REFl] and Su-Cheng Pei [REFS] 
but different parts appear on different levels of details. In [REFIO] the retrieval process 
is given, in [REFl] the management of sound data is described, and in [REFS] table 
creation and data insertion is given. Modify, delete, graphical user interface design is 
given in the accompanying thesis [REF 12] and [REF9]. 

An important aspect of an MDBMS is the retrieval process. In the existing MDBMS 
prototype, if a query references only formatted data, it is passed to INGRES directly, but, 
if a query includes media data then the query is decomposed into multiple subqueries. 
Each of the subqueries is individually processed, and the intermediate results are 
recomposed to form the final result to be given to the user. However, the early prototype 
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version did not support complex queries. This thesis will concentrate on complex queries 
such as nesting conditions and multiple selections. 

This thesis is organized in six chapters and three appendices. The next chapter, 
Chapter II, gives a survey of previous work done in the MDBMS project. Chapter III 
reports the modularization of the MDBMS prototype program code. Chapter IV will give 
the design for complex query processing. Chapter V will present the implementation of 
complex query processing. Chapter VI will give the conclusion and summary along with 
a brief statement of other work planned or in progress. Appendix A will present a 
comprehensive example for the retrieval process using complex queries. Appendix B will 
give the generation of embedded SQL code for complex queries, and finally Appendix 
C will present the program code. 
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n. SURVEY OF PREVIOUS WORK 



As mentioned in the previous chapter, multimedia data consists of media data such 
as image, text, voice, signals, etc. in addition to formatted data. A multimedia database 
management system (MDBMS) is defined as a system that manages all multimedia data 
and provide mechanisms to handle concurrency, consistency, and recovery in addition to 
providing a query language and query processing. In this chapter we present the data 
organization for multimedia objects, integration of conventional and multimedia data, 
architecture of the MDBMS prototype, natural language understanding capabilities in the 
parser which are required for the content retrieval of multimedia data, and finally the 
retrieval component of the prototype implemented so far. 

A. DATA ORGANIZATION FOR MULTIMEDIA OBJECTS 

Despite differences in data model and implementation aspects, all research projects 
have decided to organize multimedia data using the ADT concept. This is generally 
accepted as an adequate approach. However, none of the projects have addressed the 
problem of content retrieval of multimedia data. 

The fundamental difficulty in handling multimedia data is intrinsically tied to a very 
rich semantics. To illustrate such a difficulty, let us look at an image of ships. Given such 
a picture, how are we to know what type of ships are in the picture. In other words, are 
the ships destroyers, cruisers, submarines or passenger ships? As another example, let us 
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suppose that we have a picture of soldiers. How do we know that the soldiers are fighting 
in a war or they are performing an exercise? 

To answer queries posed on images, for example, a person must draw from a very 
rich experience encountered in life to derive a good answer. One must have a 
sophisticated technique to analyze the contents of the images to get the semantics of 
different things in the images. Today’s technology does not allow systems to have this 
kind of capability to answer multimedia queries. However, we can use both Artificial 
Intelligence (AI) and Information Retrieval (IR) technology to do the next best thing. We 
can abstract the contents of the multimedia data into words or text and use the text 
description equivalent of the original multimedia data to match the user query. This is the 
principle used in the design of the MDBMS prototype to handle multimedia data for 
different applications. Figure 2.1 shows the format of image data and Figure 2.2 shows 
the format of sound data; both of them consist of the registration, raw and description 
data. 

Raw data is the bit string representation of the image, sound, signal, etc. obtained 
from scanning or digitizing the original multimedia data. Registration data generally 
enhances the information about raw data and is not redundant. Description data describes 
the contents of the multimedia data and cannot be automatically derived by the computer 
with today’s technology. The description data for multimedia data is to be supplied by 
users. 



7 



IMAGE 



Registration data 

Height, Width, Depth, Colormap,... 

Raw data 
Matrix of pixels 



Description Data 

green eyes, black hair, tall person,... 



Figure 2.1 Structure of an Image Object 
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SOUND 



Registration data 
size duration 

sample rate resolution 

encoding 



Raw data 
bit string 



Description data 
strong voice, talk fast ... 



Figure 22 . Structure of a Sound Object 
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B. INTEGRATION OF CX3NVENTIONAL AND MULTIMEDIA DBMS 

The relational model has been selected as a basis to design and build the MDBMS 
prototype since the relational model is well known and widely used and has a firm 
theoretical basis. 

When a relation has an attribute with a media type (i.e., data type of the attribute: 
sound or image), then an additional relation, called media relation, has to be created for 
storing registration and description data as shown in Figure 2.3. For each attribute with 
media data type a separate media relation is created. 



OBJECT 



o_id 


... 


photo 


voice 



PHOTO 



ijd 


file_ld 


description 


hi^t 


width 


depth 



VOICE 



s_id 


filejd 


description 


size 


saple.rate 


encoding 


duiatior 


lesol. 



Hgure 2.3 Schema for Modeling Relationship between Standard 
Objects and Media Objects 
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In Figure 2.3 the relation called OBJECT has the media attributes photo and voice 
in addition to other attributes with conventional data types. For the photo attribute a 
media relation is created and named after its attribute name, namely PHOTO. The 
PHOTO relation has i_id as the table key linking the PHOTO relation to the OBJECT 
relation. It also has the attributes file_id with the path to the file where the raw data for 
the image object is kept, description which is natural language description of the content 
of the image, and also height, width and depth which constitute the registration data part 
of the image object. In the same way, for the voice attribute of the OBJECT relation 
another media relation called VOICE is created. The VOICE relation has the attributes 
s_id as the table key, file_id showing the path to the file where the raw data for the sound 
object is kept, description describing the content of the sound object and finally size, 
sample_rate, encoding, duration and resolution as the registration data part of the sound 
object. 



C. ARGHTTECrURE OF THE MDBMS 

In this section we will present various components of the MDBMS prototype. The 
components of the MDBMS are User Interface, Query Processor, Data Access Subsystem 
and Intelligent Retrieval Subsystem (See Figure 2.4). 

The Data Access Subsystem consists of Conventional Data Manager and Media 
Data Manager and controls the access to the actual data stored in relational and media 
DBMS. The Intelligent Retrieval Subsystem is composed of Parser, Generator, Matcher 
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Data Access Subsystem Intelligent Retrieval Subsystem 



Hgure 2.4 Architectuie of the MDBMS Prototype 

and Description Manager. The Query Processor accepts queries from the user and 
executes them by calling the other components. When a new description for a media data 
is entered, for example, the query processor calls the parser. The parser uses the 
dictionary to produce first-order predicates and return them to the query processor. The 
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query processor, then, hands the predicates over to the description manager which links 
the description to its multimedia data. 

When the query processor receives a query, the first task is to decompose the query 
into subqueries each affecting only conventional or media part but not both. The 
conventional subquery is directly passed to the conventional data manager without any 
modifications. For the text description, the query processor calls the natural language 
parser to obtain the equivalent query predicates. The predicates are then passed to the 
matcher. The matcher tries to match the query with the qualified multimedia data by 
comparing the predicates of the query with that of the stored muldmedia data. The 
matcher does this by calling the description manager and using domain knowledge. As 
the solution to the natural language part of a query, the query processor receives links to 
the qualified multimedia data. After combining them with the results of the conventional 
subquery the final results are retrieved by the Data Access Subsystem. 

The conventional data manager, media object manager, description manager, parser, 
matcher and part of the query processor have already been implemented as part of the 
MDBMS prototype [REF6, REF7, REF8]. 

D. NATURAL LANGUAGE UNDERSTANDING IN THE PARSER 

In this section we present the natural language understanding capabilities of the 
parser. In order to accomplish the goal of content retrieval of multimedia data, complete 
understanding of natural language is not necessary. However, a restricted interpretation 



13 



is necessary and this is done by the parser component using the application dependent 
dictionary as a semantic basis. 

1. Natural Language Description for Multimedia Data 

Retrieval of multimedia data is performed by matching the natural language 
descriptions with the query specifications. We believe that unrestricted natural language 
processing is very difficult to accomplish given the AI technology today. We found that 
the language needed to describe multimedia data is much more formal than everyday 
English. Hence, instead of natural language descriptions, we use captions to describe 
multimedia data. Captions are a natural but special, stylized way of writing descriptions 
with a subset of natural language and not as difficult to parse and interpret as general 
natural language. 

Additionally, for a particular multimedia application the universe of discourse 
is usually quite constrained. Nouns tend to be concrete and most multimedia databases 
emphasize still photographs and other fixed time graphics to which few verbs can be 
applied thereby easing a difficult aspect of natural language processing. The important 
thing is that we use natural language only to access entities in a database making 
complete understanding of all aspects of a word unnecessary. 

2. £)ictionaiy 

Besides the captions themselves, the MDBMS prototype requires auxiliary 
information from a dictionary. The dictionary or lexicon is necessary for parsing and 
gives each possible natural language word its semantic: its part of speech, its grairunatical 
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form and the form of literals needed to represent it. Many of the words for example, 
conjunctions and qualifying adjectives are consistent in meaning across a wide range of 
domains; thus we can borrow their interpretation from existing natural language systems 
and include them in every dictionary. The words that significantly change between 
applications are nouns and few verbs, need to be defined for every applications domain 
separately, but mostly their meaning is straightforward. To simplify matching, we try to 
limit the properties and relationships to a small set of primitives, for example we will not 
distinguish between the relationship asserted by the terms ’within’, ’inside’, ’part of, 
’containing’, ’including’ and ’compromising’. This can be done without loss because in 
order to achieve efficient retrieval it is not necessary to capture the full meaning of an 
English expression, but just the main intent. 

The dictionary is an important part of the system which is application 
dependent. In order to allow an interpretation of natural language captions it defines the 
domain of each application thus restricting their vocabulary, the semantics and the 
knowledge of the system to apply all the information. 

3. Natural Language Interpretation 

The parser translates the text description into a set of predicates called meaning 
list. The imprecision and ambiguity of the natural language descriptions is reduced 
considerably by transforming them into a set of predicates. These predicates state facts 
about the real world entities involved with multimedia data like their properties and 
relationships. As in most parsing methods, we chose first-order predicate calculus as a 
formal representation of the description data. The parser depends on the dictionary to turn 
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the descriptions into predicates. It is the parser’s task to use the dictionary to resolve 
synonyms and to check the syntactic context to resolve lexical ambiguities. 

Other important features of the parser are the use of supercaptions, a 
generalization of captions, and frames for stereotypical actions, allowing a set of 
predicates to be derived from terms in the description. 

The current implementation of the parser uses augmented-transition network 
parsing and interpretation routines. It is implemented in Quintus Prolog and running on 
a SUN SPARC workstation. The details of the parser and the predicates are beyond the 
scope of this thesis and are given in [REF6, REFll]. 

An example of a natural language description and its translation into an 
equivalent set of predicates using the parser is shown below: 

Description: "A cruiser with long_range missiles" 

Predicates: ship(x), component(x,y), missiles(y), distance(y,long_range) 
Choosing the right set of predicates is a very difficult task which is comparable 
to knowledge acquisition for expert systems. For the purposes of this thesis, it is sufficient 
to assume that the dictionary lists all the words the parser can recognize, all parts of 
speech associated with any word, and the predicates to use when a word appears in a 
description. Thus, the set of all predicates that can be used in the descriptions must be 
defined in the dictionary. 
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E. RETRIEVAL PROCESS 



Retrieval is the most important operation in a MDBMS. In the existing MDBMS 
only simple SQL selections are implemented. As mentioned earlier, if a user query 
involves only formatted data then it is directly passed to INGRES. However, if a query 
includes media data then it is decomposed into multiple subqueries. Each of the 
subqueries is individually processed, their results are kept in temporary result tables and, 
finally, the results of all subqueries are recomposed to give the final result to the user. 
The existing system [REF 10] did not support complex queries such as nesting conditions 
and multiple selections. 

Nesting condition means one or more queries are placed inside another query. The 
inner query is called subquery and the encapsulating one is called outer query. The depth 
of nesting condition may be arbitrary according to the need. 

Multiple selections can be presented in disjunctive normal form by using the 
Boolean operator ’and’ inside each group, and the Boolean operator ’or’ between groups. 
There may be one or more conditions inside each group and there may be one or more 
groups in a query. 

The design and implementation of nesting conditions and multiple selections, which 
have not been supported by the MDBMS prototype so far, will be presented in Chapter 
rV and Chapter V of this thesis in detail. 
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m. MODULARIZATION 



A. GENERAL 

When the Multimedia Database Management System was growing and the number 
of people working on the system increased, we needed a better way of structuring the 
system. We decided that the best way was to divide the MDBMS program code into 
smaller units and get each person to work on his part separately without interfering with 
other people’s parts. In this chapter we will first present the general concepts of 
modularization. Then, we will show how we used the C programming language to 
implement the MDBMS prototype to achieve modularization. Since modularization of the 
MDBMS prototype was a team effort, this chapter will also be included in [REF 12]. 

L What is Modularization? 

Modularization is the process of structuring programs (i.e. data structures and 
functions) by dividing them into smaller units called modules. A module is a collection 
of related programming language entities (procedures, types, and so on). The different 
modules of a program are in relationship with each other resulting in a module hierarchy. 
Modules on a higher level of the hierarchy use functions or procedures of lower level 
modules. 

2. Why do we need Modularization? 

A program which does not consist of substructures is hard to understand. 
Dividing a program into modules makes it easier to follow. Division of labor among 
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people shortens the time to complete a project. When need arises to change the program 
code, changing one or a few modules will be enough to get the desired result. When a 
new system is to be built, it is possible to reuse modules of a previous system. Testing 
of modules is easier than testing a program code without any structure. In the following 
part we will discuss the advantages of modularization in detail. 

a. Con^rehensibility 

A system with no substructure is hard to understand. Years of experience 
shows that modules with high cohesion and low coupling supply designers with easier-to- 
understand systems. High cohesion means that the functions and objects within a module 
are closely related to each other. Low coupling means that each module interacts with 
some others through a narrow interface. 

b. Division of Labor 

To complete a large task in a reasonable time, it must be divided among 
the people participating the project. This can be done using modules as basic units. Each 
module given to a person of the project should be small enough to be implemented within 
a relatively short period of time. If the implementation of a module would take too long, 
then it is necessary to break it into smaller pieces. 

c. Response to change 

Change is a fundamental characteristic of software systems. Users may 
ask new features or changes to old ones; the system may move to new hardware or a new 
operating system; bugs may be discovered during testing; performance measurements may 
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show bottlenecks. All these changes done to an existing software system cost large 
amounts of money. Modularization makes it easier to do changes. Changing a module, 
instead of changing the whole system gives the desired result. 

d. Reusability 

When you build a new system, you may need the same functionality that 
you used in a previous system. For instance, a module for string utility functions or I/O 
functions will be useful for many applications. Instead of rewriting these modules, it saves 
much effort if you can reuse modules of a previous system. 

e. Easier to test 

Smaller parts are easier to debug. In a large system each module should 
be tested individually, and large collections of modules should be slowly built up to test 
the whole system. Debugging is the search for defects; it often involves a lot of detective 
work. Testing has much broader scope, and usually assumes you have finished most of 
the debugging. Testing may uncover problems, which may lead to further debugging. 

In addition to these advantages, modularization can be used to achieve 
two basic principles in systems development: information hiding and abstraction ( or 
encapsulation). The principle of information hiding is that each module hides some design 
decision. If the design decision changes, then only the module hiding the design decision 
need to be changed. All other modules using the changed module do not need to be 
changed. Information hiding and abstraction focus on different aspects. Information hiding 
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focuses on what to hide; abstraction focuses on what to reveal. Information hiding tries 
to protect you from change; you ask what design decisions might change, and arrange to 
hide them so you cannot depend on them. The sorts of decisions one might hide 
include: 

• The algorithm for carrying out some operation. 

• The representation of some data structures. 

• The details of an interface to an operating system, or to special purpose hardware. 

• The policy for allocating some resource or ordering certain operations. 

Every abstract data type is an information hiding module; however a 
module may not be an abstract data type. A module can also be a set of unrelated 
functions. An abstract data type module provides a collection of procedures for 
manipulating the encapsulated data structure. For example, a module might hide the 
representation of a stack. It would provide operations for pushing elements onto a stack, 
popping elements off the stack, reading the top element of the stack and initializing the 
stack. These four functions are called the interface procedures of the module. 

3. How to modularize 

Now, we need to address how to achieve a modular system. In decomposing 
a system into modules five phases are necessary: 

a. Identify major groups of design decisions, subgroups within those groups, 
and so on. These become the higher levels of the module hierarchy, and chapters, sections 
and so forth of the decomposition document. The decomposition document records the 
division of the system into modules. It is used as a baseline document for detailed design. 
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b. Identify all the major design decisions in your project, and record 
modules that hide them in the decomposition document. These become the leaves of the 
module hierarchy. 

c. Estimate the size of each module. If it seems too large for one person to 
handle, break it into smaller pieces. 

d. The results of the previous phase are separate modules. Now, the 
dependencies between modules need to be specified. A module dependency document 
defines the module dependencies and describes a module hierarchy. Figure 3.1 shows 
how a module hierarchy might look like. A module hierarchy reflects the structure of the 
whole system. Each box represents a module and each line connecting two modules 
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Figure 3.1. An Example Module Hierarchy 
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represent a dependency between modules. For example in Figure 3.1 Module 1 calls 
modules Module 2, Module 3 and Module 4. Module 1 is at the first level of the 
hierarchy while Module 2, Module 3 and Module 4 are at the second level of the module 
hierarchy and so on. 

c. The last phase is to identify for each module the relationship with other 
modules. To make the dependencies between modules, import and export interfaces are 
added to the documentation header of each module. In the import interface of each 
module, functions that are called from other modules are placed. The export interface 
summarizes the functionality provided by a module. In the export interface of each 
module, functions that can be used by other modules take place. Each module in the 
module hierarchy is structured as follows ( Figure 3.2): 



module name 

e^qpoit interface 
import interface 
module body 



Figure 3.2 Structure of a Module 

export interface:=export <function !>,<function2>,... 
import interface:=import <function 1>, <function2>,... 
from module <module 1> 
import <function 1>, <function 2>,... 
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from <module 2> 



module body:= implementation of the exported functions by using the 

imported functions (including not exported functions and 
data structures) 

B. MODULARIZATION OF C PROGRAMS 

C programming language (Kemighan and Ritchie C) was chosen to implement 
MDBMS when the studies began on the prototype in 1988. However, C does not support 
modularization. The only thing that can be done is to divide the program code in parts 
and store them in separate files. This allows the user to use separate compilation or the 
include mechanism provided by the C language. 

Files were not designed as mechanism for information hiding and data abstraction. 
They were provided as a facility to support program partitioning and independent 
compilation. Files containing components of a C program (functions, declarations and 
definitions) can be compiled independently. Independently compiled program components, 
along with precompiled library functions, can be linked together to produce a complete 
program. 

Since C files can be compiled independently, it is convenient to partition large C 
programs into smaller and more manageable parts to achieve some advantages of the 
modularization concept. Independent compilation allows files containing C program 
components to be checked separately for syntactic and semantic errors. Moreover, when 
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a program is modified, it is only necessary to recompile the effected components. The 
Unix utility ’make’ is used to automate this process. 

C files can be used to partly implement data abstraction and information hiding. An 
abstract data object, as defined in the previous section, is an object that can be 
manipulated using only the operations supplied by the definer of the object. The user 
cannot directly manipulate the underlying implementation of an abstract data object. 
Details of how an abstract data object is implemented are hidden from the user. Hiding 
the details prevents the user from: 

• making programs dependent on the representation. The representation of an abstract 
data type can be changed without effecting the rest of the program. For example, 
the abstract data type set may be initially implemented as an array, but this 
representation may be changed to an ordered list later on for storage efficiency. 

• accidentally or maliciously violating the integrity of an abstract data type object. 
Integrity of abstract data type objects is preserved by forcing the user to manipulate 
these objects using only the operations provided by the designer of the abstract data 
type. 

Examples of abstract data types are stacks, queues, sets, databases and binary trees. 
However, a C file is not a true data abstraction facility, because it only partially 
supports data abstraction. If you link an independently compiled C module to some other 
parts, you can not prevent the user from accessing all functions and even the internal data 
structures of other modules. 

The other mechanism used to achieve some kind of modularization is the 
include mechanism. Arbitrary files can be textually included in a C program by means 
of the include instruction. The capability to include files textually in a program allows 
common constant, data, type and function declarations and definitions to be kept in 
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separate files. These common declarations and definitions can then be used in all parts 
of the program. Keeping common declarations and definitions in separate files and then 
including them in C programs is a popular style used for writing C programs. A common 
example is the standard input/output declaration file stdio.h. 

As mentioned before, although the C language does not support modularization we 
can achieve the following advantages by dividing the existing program code into separate 
parts: 

• Programs modules can be developed independently. 

• Changes to the program can be done by only changing single modules. 

• Clarity of design and structure. 

• Program code is easier to understand. 

• Maintainability. 

• Reusability of modules. 

• Uniformity. 

C. MODULARIZATION OF MDBMS 

As mentioned in the previous section, the C language was chosen to implement the 
MDBMS prototype. When we started to implement the complex query processing, the 
program code was mainly in one file. Considering the size of the program and that 
multiple students are working on three different parts of the project, namely complex 
query processing, graphical user interface, modify and delete, we decided to modularize 
the MDBMS prototype. 
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Before starting the modularization, the module hierarchy of the MDBMS program 
code was as shown in Figure 3.3. First of all we divided the existing program code in 
separate files corresponding to their purpose. Then we divided each part again until we 
obtained the final module hierarchy (Figure 3.4). 






defines Ji 




eiTQrs.h 









Hgure 3.3 Module Hierarchy of MDBMS at the beginning 

The MDBMS module hierarchy now consists of 6 levels. In Figure 3.4, each box 
represents a module. For instance, the module ’MDBMS’ which is the main program calls 
the modules ’Catalog Management’, ’Create’, ’Insert’, ’Modify’, ’Delete’, ’Retrieve’ and 
’Connect’. In the diagram the straight lines show the dependencies between modules. 
Although the module ’MDBMS ’which is at the first level of the hierarchy calls the 
module ’Retrieve’ which is at the third level of the hierarchy, the dependency is not 
shown on the diagram in order not to further complicate the module hierarchy diagram. 
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Hgure 3.4 Module Hierarchy of MDBMS 
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There is, however, still much to do on modularization. Considering the time we 
needed to complete our part (i.e., complex query processing) we stopped working on 
modularization at this point. 

To make the dependencies between the different parts of the MDBMS program 
visible, we have added import and export interfaces in the documentation header of each 
module (Figure 3.5). 

In the export interface of each module, functions that can be used by other modules 
are placed. The export interface therefore summarizes the functionality provided by a 
module. For example, the function piint_all_tableO taking place in the export interface 
of ’Insert’ Module can be called by the ’Retrieve’ Module. 

In the import interface of each module, functions that are called from other modules 
are mentioned. For instance, the function get_sound_valueO taking place in the import 
interface of ’Insert’ Module, is called from the ’User Interface’ Module. 

In addition to our work on modularization, we also used some helpful tools 
provided by the UNIX system, namely sees, lint, make, and dbx. Sees is a version 
manager which allows us to have more than version of a file. If you want to try another 
way to implement a module, you can work on it that while you still keep the older 
versions. You can always go back and work on any older version you want. The first 
thing in order to use sees is to make a directory and call it SCCS. To create the first 
version of any file type "sees create <filename>" at shell prompt. If you want to keep a 
version and also try something on the same version type "sees delget <filename>". At this 
point you would have no writable copy of the file. To see how many versions of a file 
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Tide 

Author 

Date 

History 

Description 



: InsertModule.c 
: Su Cheng Pei 
: November 15, 1990 

: This module implements the insertion process 
in the Multimedia Database System. 






Export Interface : 

print_all_table() :Prints out the table catalog information on the 
screen. 

insert_tuple() inserts a tuple of a particular relation. 
display_tuple() :Displays the tuple before insertion. 
check_me^a_description():Checks the media description by connecting 
to the parser. 

ql_insert_tuple() :Translates SQL statement to insert a standard tuple. 
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Import Interface 

get_sound_value() :Gets a sound value of a media attribute from the 
user input. 

clr_scr() .‘Clears the screen. 

yes_no_answer() :Gets yes or no answer from the user, 
from Userlnterface.c 

check_table_name():Checks if the table name is duplicate. 

get_media_name() :Gets media table name by appending table_key at 
the end of att_name. 
from CreateModule.c 



Hgure 3.5 Export / Inqxrrt Interface of a Module 



you have, type "sees prs efilenamo". To select a version and have a writable copy of a 
file, type "sees edit -reversion number> <filename>" (for instance if we want to edit 
version number 1.1.12.4 of the file RetrieveModule.c, we should type "sees edit -rl. 1.12.3 
RetrieveModule.c"). To see which versions of all files are currendy being edited, type 
"secs info" only. These are the main commands for using sees. 
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The second tool we used was lint. During the compilation of C programs lint helps 
to find: 

• unused arguments, 

• unused variables, 

• variables which are set but not used, 

• inconsistently used function calls, 

• always ignored function returns,... 

We put the lint command in the Makefile so during compilation lint is invoked 
automatically by the Makefile. See Chapter V.C of this thesis to see how lint is used in 
the Makefile. 

The third utility program we used was ’make’ which is a command generator. Refer 
to V.C of this thesis to get detailed information about ’make’ and its use. 

The last tool we used was dbx. Dbx is a source-level debugger. It helps find run 
time errors during execution of a program. To run dbx, type "dbx <executable file 
name>". To run the program, type "run". To trace in a function, type "trace in <function 
name>. 
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IV. DESIGN OF COMPLEX QUERY PROCESSING 



In Chapter II of this thesis the general architecture of the MDBMS prototype is 
described in detail. Basically, it was an attempt to broaden the database handling 
capability by providing the integrated support of both formatted and media data. The 
design of complex query processing is done based on the architecture presented. However, 
several resource constraints in INGRES, the IBM compatible PC and the SUN 
workstation were found when studies started on the MDBMS and these restrictions 
influenced the design and implementation of the prototype. In this chapter we mention the 
system environment and give a sample application. Funher, we present the design of 
complex query processing in detail. 

A. SYSTEM ENVIRONMENT AND SAMPLE APPUCATION 
1. System Environment 

The MDBMS prototype was built on top of INGRES to support formatted and 
multimedia data. INGRES acts as the manager for the data storage. However, INGRES 
has a lot of restrictions: 

• INGRES does not support ADT, the approach selected to support multimedia data. 

• INGRES does not allow its users to get the catalog information readily. 

• Although INGRES supports embedded SQL in host C language, it does not provide 
a set of high level function calls available to the users. For example, the embedded 
SQL statements are pre-compiled into INGRES low level code for execution. It 
does not allow the relation name and attribute name as a program variable in the 
high level embedded SQL code. 
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• INGRES does not support set operations such as UNION, INTERSECTION and 
MINUS (i.e., difference of two tables). UNION and INTERSECTION are of great 
importance to be able to design and implement complex queries. 

Although more recent versions of INGRES have removed some of these 
restrictions, a significant recoding effort would be required for using the new version. 
However, some coding effort had to be done, as we will also mention later in this chapter, 
to extend the capabilities of the INGRES SQL for supporting the set operations UNION, 
INTERSECTION and MINUS. 

In the meantime, a similar situation occurs in the SUN workstation. New SUN 
workstations now support sound, but it would require a substantial investment to purchase 
new hardware and recode the prototype source code. It was decided that instead of these 
investments, the PC would be retained to manage sound data and would be incorporated 
into MDBMS prototype as a backend server by connecting it to the SUN system via a 
local network, i.e., ETHERNET [REFl]. 

Similarly, to captme images, a video card which works with a camcorder is 
installed into another PC. The PC first captures an image in GIF format. This file is then 
transferred to the SUN workstation using FTP (File Transfer Protocol) in binary mode. 
The image files in GIF format are transformed into RASTER format by software before 
they can be used by the MDBMS prototype. A more detailed description of the capturing 
process of the images is described in [REF 10]. 

All of these constraints affected the design and implementation of the MDBMS 
prototype. Since the prototype construction is not intended to be a production system at 
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this time, and because the current system is enough to demonstrate the principles, a 
decision was made not to change the structure of the system. 

2. Sample Application 

Many application areas increasingly require a MDBMS to manage both 
formatted and multimedia data. Examples can be found in military, publishing, 
entertainment and instructional environments. In this subsection, we present a sample 
application which can be considered quite typical in a military environment. The goal is 
to give the reader a better understanding in the design and implementation of complex 
queries for multimedia processing. 

Let us assume that the Chief of the Navy has ordered his staff to keep 
information about Navy ships, weapons, officers, missions of the ships and bases of the 
ships. Suppose we want to store in the database the names, types, ID’s, displacements, 
mission id’s and base id’s of the ships, the years in which the ships are built, the captains 
and executive officers of the ships, and finally the pictures of the ships. Let us assume 
that we want to know what weapons are on the ships and the weapons’ power, fire range 
and the weapons’ pictures. As for the officers, their names, ranks, ID’s, salaries, repon 
dates as well as their pictures and voices should also be kept in the database. Moreover, 
we may want to keep in the database the name, direction, goal and task related to each 
mission and also the name, location, and size of each Navy base. As seen from this 
example, besides standard data types we also have media types, namely image and sound. 
The above information can be transformed into relations in a database as shown in Figure 
4.1. 
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Figure 4.1. Navy Ship Relational Database Schemes 

The primary keys (underlined) of the relational schemes in Figure 4.1 are 
externally defined by the MDBMS user, and the media data types such as image and 
sound have also been defined as data types supported by the MDBMS prototype. As 
mentioned earlier, INGRES is used to store all the data. The question now is how to store 
media data types in INGRES which supports only standard data types? The solution is 
to express media data types in terms of standard data types. In the MDBMS prototype, 
the data type of each media attribute is defined as INTEGER internally. The content of 
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the media type is an integer which link to its own media relation that is not transparent 
to the users. These integers are internally generated identifiers for the tuples in the media 
relations. For each media attribute, a media relation is generated. This is deemed desirable 
since putting media data together, i.e., images from different relations, does not produce 
any benefit but actually causes the system to degrade in performance. Hence, "picture" 
in the relation OFFICER requires a media relation and picture in WEAPON requires 
another. Since attribute names do not have to be unique across relations, we must find 
ways to name the two PICTURE relations differently. The solution is to append the 
relation’s internal identifier to the media attribute names. Let us assume the SHIP’S 
internal identifier is "1", then the image media relation for the attribute "picture" in SHIP 
becomes PICTURE 1. In the same way, to each media table is assigned a name resulting 
in the media relations’ names as shown in Figure 4.2. Note that all the media tables are 
invisible to the users. 

Given the sample application above, the MDBMS prototype before the design 
and implementation of complex queries was able to respond queries as follows: 

• Retrieve the picture and voice recording of the captain of the ship "Kitty Hawk"? 

• What are the names of the ship weapons whose fire range is greater than 200 miles 
and whose pictures show "long range missile against land targets"? 

• Which ship is the executive officer Rosemary Stewart stationed at? 

• Retrieve the pictures and names of the ships which have the weapon "Trident". 
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Figure 4J2. The Media Relational Database Schemes for Media Attributes in 
Figure 4.1 

However, the prototype could not respond the types of queries listed below: 

• Retrieve the pictures, voice recordings and names the captains of the ships "Kitty 
Hawk" or "Mississippi"? 

• List the name of all ships which have the weapon whose picture shows "high speed 
guided torpedo" and whose fire range is greater than 1 mile or which was 
commanded by Captain "Huseyin Aygun". 

• Retrieve the voice recordings and names of the officers whose salary is greater than 
30,000 but who are not captain. 

Now let us look at how these queries can be handled in the order they are 



given: 
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• Can be handled using multiple selections. 

• Can be handled using a nested query inside multiple selections. 

• Can be handled using set operation MINUS. 

The detail information about how these queries and other complex queries can 
be evaluated will be given in the next section. 

B. DESIGN OF COMPLEX QUERY PROCESSING 

In this section we will first review the design of simple queries [REF 10], then 
present the design of complex queries, namely nesting conditions (i.e.,IN, NOT IN, 
EXISTS, NOT EXISTS) and multiple selections, along with the design of set operations 
(i.e., UNION, INTERSECT, MINUS) and aggregate functions. Finally give an example 
for multiple selections including nesting condition. With our approach for the design of 
complex queries, it is possible to have nested queries up to arbitrary depth and arbitrarily 
many conditions inside each group and arbitrarily many groups for multiple selections. 

1. Simple Queries 

In this subsection we review simple queries which have already been designed 
and implemented by [REFIO]. Further we will point out the differences of simple queries 
between our approach and the approach in [REFIO]. 

As mentioned earlier, if a query includes only formatted data, it is directly 
passed to INGRES. However, if a query includes media data then the query is 
decomposed into multiple subqueries. Each subquery is then individually processed and 
the results of these subqueries are recomposed to give the final result to the user. Now 
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we can look at two examples - one with only formatted data, the other including media 
data in addition to formatted data - to illustrate what we have just said. 

1. Query: Which Navy ship is "Rosemary Stewart" stationed at? The SQL 
statement for this query can be written as follows: 

SELECT s_name 

FROM ship, officer 

WHERE ship.exo_id=officer.o_id and o_name="Rosemary Stewan" 

Since this query contains only formatted data, no decomposition is necessary 
and it is directly passed to INGRES to get the result. 

2. Query: Retrieve the names, pictures and voice recordings of the executive 
officers stationed at ships whose displacement is greater than 40,000 and whose picture 
shows "gas turbine powered ship"? The extended SQL statement for this query can be 
written as follows: 

SELECT o_name, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.exo_id and displacement > 40,000 and sh^-fricture 
(CONTAINS, "gas turbine powered ship"); 

Since the above query contains media it should be decomposed into subqueries. 
The decomposition process is shown below: 

Create table T1 as : 

SELECT * 

FROM ship, officer 
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WHERE officer,o_id=ship.exo_id and displacement > 40,000; 

Create table Ml as : 

SELECT i_id 
FROM PICTUREl 

WHERE PICTUREl (CONTAINS, "gas turbine powered ship"); 

Create table RESULT as : 

SELECT o_name, picture, voice 

FROM Tl, Ml 

WHERE Tl.picture=Ml.i_id 

After the system gets the final result which is an INGRES relation, the system 
will generate a cursor called cuisar_output to print out the data one tuple at a time. If the 
output contains any media data, as in the above example, the RESULT table shows us the 
tuple id’s retrieved from the related media relation, in the example above the media 
relation is PICTUREL Later the system displays the media data in the order printed out 
for the formatted part. The process of creating and using a cursor is as follows: 

EXEC SQL CREATE CURSOR cursor_output AS 
SELECT * 

FROM RESULT 

EXEC SQL FETCn CURSOR cursor_output; 

print formatted data; 

EXEC SQL CREATE CURSOR cursor_output AS 
SELECT media data 
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FROM RESULT 



EXEC SQL FETCH CURSOR cursor_output; 

display pictures; 

play voice recordings; 

What has been discussed about simple queries so far is according to the 
approach in [REFIO]. We found that it is not convenient to display the media data in the 
order printed out for the formatted data. What if the user wants to see only the picture 
of the last tuple displayed as the final result? So, we modified the design for the display 
process of media part. With this modification, the user of the MDBMS prototype can 
select which media data to display. More detailed information about the modification can 
be found in the next chapter of this thesis. 

Because the design for the process of decomposition, when a query includes 
media data, introduced in this subsection is the same for complex queries and set 
operations which will be introduced in the rest of this chapter, we will not repeat the 
decomposition process due to the inclusion of media data in a query for the sake of 
clarity. 

2. Nested Queries 

Some queries require that existing values in the database be fetched and used 
in a comparison condition. Such queries can be conveniently formulated using nested 
queries which are complete SELECT- FROM- WHERE queries within the WHERE clause 
of another query which is called the outer query. In this chapter we present the design of 
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nested queries including the comparison operators IN, NOT IN, EXISTS, and NOT 
EXISTS giving examples for each to clarify the approach. 

a. IN: 

The comparison operator IN compares a value, say v, with a set (or 
multiset) of values V and evaluates to TRUE if v is one of the elements in V. Let us now 
give an example to show how a nested query with the comparison operator IN looks like. 

Query: Retrieve the names, pictures and voice recordings of all executive 
officers stationed at ships whose weapon’s picture shows "high speed guided torpedo". 
An extended SQL statement for the above query: 

SELECT o_name, picture, voice 
FROM officer 
WHERE o_id IN 

(SELECT exo_id 
FROM ship 
WHERE s_no IN 
(SELECT s_no 
FROM ship_weapon, weapon 
WHERE ship_weapon.w_name=weapon.w_name and 
weapon.picture(CONTAINS, "high speed guided 
torpedo"))); 

This query is evaluated as follows: 

Create table T1 as: 
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SELECT s_no 



FROM ship_weapon, weapon 

WHERE ship_weapon.w_name=weapon.w_name and 

weapon.picture(CONTAINS, "high speed guided torpedo"))); 

Create table T2 as: 

SELECT exo_id 
FROM ship, T1 
WHERE ship.s_no=Tl.s_no 

Create table RESULT as: 

SELECT o_name, picture, voice 

FROM officer, T2 

WHERE officer.o_id=T2.exo_id 

Note that we have neither shown the creation of temporary media tables 
nor the display of the final result as we did in the previous section for simple queries. The 
idea is to emphasize the design of a nested query with the comparison operator IN. The 
same process will be followed for the rest of this chapter. 

b. NOT IN: 

The comparison operator NOT IN compares a value v with a set (or 
multiset) of values V and evaluates to TRUE if v is not one of the elements in V. An 
example of a nested query with the comparison operator NOT IN is given below: 

Query: Retrieve the names, displacements, and pictures of all ships which 
do not have weapons whose pictiu'e shows "long range underwater-to-surface missile". 
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An extended SQL statement for the above query can be written as 

follows; 

SELECT s_name, displacement, picture 
FROM ship 
WHERE s_no NOT IN 
(SELECT s_no 
FROM ship_weapon, weapon 
WHERE ship_weapon.w_name=weapon.w_name and 

weapon.picture(CONTAINS, "long range underwater- to-surface 
missile"). 

The above query is evaluated as follows: 

Create table T1 as: 

SELECT s_no 

FROM ship_weapon, weapon 

WHERE ship_weapon.w_name=weapon.w_name and 

weapon.picture(CONTAINS, "long range underwater-to-surface 
missile"). 

Create table RESULT as: 

SELECT s_name, displacement, picture 
FROM ship, T1 

WHERE (ship.s_no=Tl.s_no)=FALSE 
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In the creation of the RESULT table the statement WHERE 



(ship.s_no=Tl.s_no)=FALSE is used to show that the tuples of the table SHIP are 
retrieved into the table RESULT if the join condition evaluates to FALSE. In other words 
tuples of the table SHIP are retrieved if they are not a member of the values in table Tl. 

c. EXISTS: 

The comparison operator EXISTS is usually used in conjunction with a 
correlated nested query. A correlated nested query is a nested query with a join condition 
related to the outer query. Nested queries with the comparison operator EXISTS work as 
follows: 

For each tuple of the outer query, the nested query is evaluated; if at least 
one tuple exists in the result of the nested query then that tuple of the outer query is 
retrieved. 

Query: Retrieve the names, ranks and pictures of the captains who 
commanded the ships whose pictures show "a cruiser firing at the enemy at the Gulf 
War". 

SQL statement for the above query: 

SELECT o_name, rank, picture 

FROM officer 

WHERE EXISTS 
(SELECT * 

FROM ship 

WHERE ship.picture(CONTAINS, "a cruiser firing at the 
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enemy at the Gulf War")); 



The above query is evaluated as follows: 

Create table T1 as follows: 

SELECT * 

FROM ship 

WHERE ship.picture(CONTAINS, "a cruiser firing at the 
enemy at the Gulf War")); 

Create table RESULT as follows: 

SELECT o_name, rank, picture 

FROM officer, T1 

WHERE officer .o_id=Tl.exo_id 

d. NOT EXISTS: 

The comparison operator NOT EXISTS is also used in conjunction with 
a correlated nested query. NOT EXISTS works as follows: 

For each tuple of the outer query, the nested query is evaluated; if the 
tuple does not exist in the result of the nested query then that tuple of the outer query is 
retrieved. 

Query: Retrieve the names, ranks and pictures of the executive officers 
who are not stationed at destroyers. 

SQL statement: 

SELECT o_name, rank, picture 
FROM officer 
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WHERE NOT EXISTS 



(SELECT * 

FROM ship 

WHERE type="destroyer"); 

The query is evaluated as follows; 

Create table T1 as: 

SELECT * 

FROM ship 

WHERE type="destroyer" 

Create table RESULT as: 

SELECT o_name, rank, picture 
FROM officer, T1 

WHERE (officer.o_id=Tl.exo_id)=FALSE; 

3. Set Operations 

Set operations in SQL are INTERSECTION, UNION, and MENUS (set 
difference). As we mentioned at the beginning of this chapter, our INGRES version does 
not support any of these operations. Since set operations are of great importance to us for 
implementing complex queries, we extended the capabilities of the SQL by implementing 
the set operations in C. Below we present the design of set operations. 
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a. UNION: 



The union of two tables is a table containing all rows that are either in 
the first, or in the second table or in both of them. There is an obvious restriction on this 
operation. It does not make sense, for example, to talk about the union of the SHIP and 
the OFFICER table. What would rows in this union look like? The two tables must have 
the same structure, i.e., they must be union-compatible. Two tables are union-compatible 
if they have the same number of columns and if their corresponding columns have 
identical data types and lengths. Note that the definition does not state that the column 
headings (attribute names) of the two tables must be identical but rather that the columns 
must be of the same type; thus if one is integer, the other one must also be an integer. 

Our design for UNION is to retrieve all the tuples of the second table and 
insert them into the first table. This is considered to be the easiest way to implement the 
set operation UNION. Let us give an example to make our design clearer. 

Query: Retrieve the names, ranks, pictures and voice recordings of all 
the officers who worked as an executive officer or as a captain on the ships whose 
pictures show "nuclear submarine with many kinds of guided torpedoes". 

Extended SQL statement for this query: 

(SELECTo_name, rank, picture, voice 
FROM officer, ship 

WHERE officer.o_id=ship.exo_id and ship.picture(CONTAINS, 
"nuclear submarine with many kinds of guided 
torpedoes")) 
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UNION 



(SELECTo_name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.capt_id and ship.picture(CONTAINS, 
"nuclear submarine with many kinds of guided 
torpedoes")); 

The above query is evaluated as follows; 

Create table T1 as: 

SELECT o_name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.exo_id and ship.picture(CONTAINS, 
"nuclear submarine with many kinds of guided 
torpedoes"); 

Create table T2 as: 

SELECT o_name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.capt_id and ship.picture(CONTAINS, 
"nuclear submarine with many kinds of guided 
torpedoes"); 

EXEC SOL CREATE CURSOR cursor outputl AS: 

SELECT * 

FROMTl 
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EXEC SOL CREATE CURSOR cursor output! AS: 



SELECT* 

FROMT2 

INSERT INTO table T1 

VALUES (EXEC SQL FETCH CURSOR cursor_output2); 
b. INTERSECnON: 

The intersection of two tables is a table containing all rows that are in 
both tables. We should keep in mind that the issue of union_compatibility is also valid 
for intersection. 

Our design for the intersection of two tables dictates that the two tables 
should be joined with all the column headings (attributes). This approach gives the same 
result as the approach in which each tuple of the first table is checked against all the 
tuples of the second table. Let us illustrate our approach with an example. 

Query; Retrieve the names, power and pictures of all weapons whose 
pictures show "high speed close range defense weapon" along with the ones located on 
board the ship "Elliott". 

Extended SQL statement for the above query can be written as follows; 

(SELECTw_name, power, picttire 

FROM weapon 

WHERE weapon.picture(CONTAINS, "high speed close range 
defense weapon")) 

INTERSECT 
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(SELECTw_name, power, picture 
FROM ship, ship_weapon, weapon 
WHERE ship.s_no=ship_weapon.s_no and 

ship_weapon.w_name=weapon.w_name); 

The above query is evaluated as follows: 

Create table T1 as: 

SELECT w_name, power, picture 
FROM weapon 

WHERE weapon.picture(CONTAINS, "high speed close range 
defense weapon"); 

Create table T2 as: 

SELECT w_name, power, picture 
FROM ship, ship_weapon, weapon 
WHERE ship.s_no=ship_weapon.s_no and 
ship_weapon.w_name=weapon.w_name; 

Create table RESULT as: 

SELECT w_name, power, picture 



FROM Tl, T2 



WHERE Tl.w_name=T2.w_name and Tl.power=T2.power and 
Tl .picture=T2.picture 
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c. MINUS: 



The difference of two tables T1 and T2 (referred to as T1 MINUS T2) 
is the set of all rows that are in T1 but not in T2. Our design for the difference of two 
tables indicates that all the rows from the first table should be retrieved if the result of 
joining the two tables with all their attributes evaluates to FALSE. 

Let us clarify this approach with an example: 

Query: Retrieve the names, ranks, and pictures of all the officers whose 
picture show "tall person" but not the ones whose pictures show "blond hair". 

Extended SQL statement for this query can be written as follows: 
(SELECT o_name, rank, picture 
FROM officer 

WHERE officer.picture(CONTAINS, "tall person")) 

MINUS 



(SELECT o_name, rank, picture 
FROM officer 

WHERE officer ,picture(CONTAINS, "blond hair")) 

This query can be evaluated as follows: 

Create T1 as: 

SELECT o_name, rank, picture 
FROM officer 

WHERE officer,picture(CONTAINS, "tall person"); 
Create T2 as: 
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SELECT o_name, rank, picture 
FROM officer 



WHERE officer.picture(CONTAINS, "blond hair"); 

Create RESULT as: 

SELECT o_name, rank, picture 
FROM Tl, T2 

WHERE (Tl.o_name=T2.o_name and Tl.rank=T2.rank and 
Tl ,picture=T2.picture)=FALSE 

The clause "WHERE (Tl .o_name=T2.o_name and Tl .rank = T2.rank and 
Tl.picture=T2.picture)=FALSE" means the tuples from Tl are retrieved if the join 
conditions evaluate to FALSE, in other words if those tuples are not in T2. 

4. Aggregate Functions 

Since aggregation is required in many database applications, we decided to 
implement the aggregate functions in addition to the complex queries mentioned in this 
chapter. 

Aggregate functions like COUNT, SUM, MAX, MIN and AVG are built-in 
functions in INGRES SQL. In this subsection we present the design of the aggregate 
functions for our MDBMS prototype system. 

a. COUNT 

The built-in function COUNT returns the number of tuples found for a 
specified condition. Let us give an example to clarify how COUNT works: 
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Query: How many executive officers are there in the fleet, whose pictures 
show "tall person with black hair"? 

The extended SQL statement for the above query: 

SELECT COUNT(o_name) 

FROM officer 

WHERE officer.picture (CONTAINS, "tall person with black hair"); 
The above query is evaluated as follows: 

Create table RESULT as: 

SELECT COUNT(o_name) 

FROM officer 

WHERE officer.picture (CONTAINS, "tall person with black hair"); 
Let us assume that there are 3 tuples in the table Tl, that match the 
query. Then the aggregate functions COUNT returns 3 in the table RESULT. 



b. SUM, MAX, MIN, AVG 

The aggregate functions SUM, MAX, MIN and AVG are applied to a set 
or multiset of numeric values and return the sum, maximum, minimum and average of 
those values. Let us clarify this with an example: 

Query: What is the sum, maximum, minimum and average salary of the 

officers? 



follows: 



An extended SQL statement for the above query can be written as 



SELECT SUM(salary), MAX(salary), MIN(salary), AVG(salary) 
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FROM officer; 



The above query is evaluated as follows: 

Create table RESULT as: 

SELECT SUM(salary), MAX(salary), MIN(salary), AVG(salary) 

FROM officer; 

5. Multiple Selections 

As we mentioned in Chapter II Section E of this thesis, multiple selections can 
be represented in disjunctive normal form by using the Boolean operator and inside each 
group, and Boolean operator or between groups. With our approach for the design of 
multiple selections it is possible to have arbitrarily many conditions inside each group and 
arbitrarily many groups in a query. The design is as follows: 

The result of each condition inside a group is retrieved into a temporary table. 
For each group, these temporary tables are intersected using the set operator 
INTERSECT; the result of the intersection is put into another temporary table. Later the 
temporary tables including the results of each group are unioned using the set operator 
UNION and the result of this operation is put into the table RESULT, which is the final 
result of the whole query. 

Let us elucidate this with an example which includes multiple selections 
without any nesting condition. An example with nesting condition will be presented in the 
next subsection. 

Query: Retrieve the names, types and pictures of all ships built after 1975 and 
whose pictures show "nuclear submarine with many missiles" or those whose 
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displacement is less than 100,000 and whose pictures show "destroyer with many kinds 
of guided missiles on board". 

SQL statement for the above query is as follows: 

SELECT s_name, type, picture 
FROM ship 

WHERE (yr_built > 1975 and ship.picture(CONTAINS, "nuclear 
submarine with many missiles")) or (displacement < 100,000 
and ship.picture(CONTAINS, "destroyer with many kinds of 
guided missiles on board")); 

The query above can be evaluated as follows: 

Create table T1 as: 

SELECT s_name, type, picture 
FROM ship 

WHERE yr_built > 1975 
Create table T2 as: 

SELECT s_name, type, picture 
FROM ship 

WHERE ship.picture(CONTAINS, "nuclear submarine with many 
missiles"); 

Create table R1 as: 

T1 INTERSECT T2; 

Create table T3 as: 
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SELECT s_name, type, picture 
FROM ship 

WHERE displacement < 100,000 

Create table T4 as: 

SELECT s_name, type, picture 
FROM ship 

WHERE ship.picture(CONTAINS, "destroyer with many kinds 
of guided missiles on board")); 

Create table R2 as: 

T3 INTERSECT T4; 

Create table RESULT as: 

R1 UNION R2; 

6. Con^)Iex Queries 

So far we presented the design of simple queries, nested queries, set operations 
and multiple selections. Now we are ready to give an example of a complex query 
including most of the types of these queries. 

Query: List the names and displacements of all ships whose weapons’ pictures 
show "anti_aircraft missile" and whose pictures show "modem air defense cruiser, high 
speed gas turbine powered ship with many engines" or whose captain’s rank is 
commander and whose executive officers’ salary is greater than $35,000. 

SQL statement for the above query is: 

SELECT s_name, displacement 
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FROM ship 



WHERE (s_no IN 
(SELECT s_no 
FROM ship_weapon, weapon 
WHERE ship_weapon.w_name=weapon.w_name 

and weapon.picture(CONTAINS, "anti-aircraft missile")) 
and ship.picture(CONTAINS, "modem air defense cruiser")) or 
((EXISTS (SELECT ojd 

FROM officer 
WHERE o_id="capt") 
and (exo_id IN (SELECT o_id 
FROM officer 
WHERE salary > 35,000)))) 

The above query can be evaluated as follows; 

Create table T1 as: 

SELECT s_no 

FROM ship_weapon, weapon 

WHERE ship_weapon.w_name=weapon.w_name and weapon.picture 
(CONTAINS, "anti-aircraft missile"); 

Create table T2 as: 

SELECT o_id 
FROM officer 
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WHERE o_id="capt" 

Create table T3 as: 

SELECT o_id 
FROM officer 
WHERE salary > 35,000 
Create table T4 as: 

SELECT s_name, displacement 
FROM ship 
WHERE s_no IN T1 
Create table T5 as: 

SELECT s_name, displacement 
FROM ship 

WHERE ship.picture(CONTAINS, "modem air defense cruiser"); 
Create table R1 as: 

T4 INTERSECT T5 
Create table T6 as: 

SELECT s_name, displacement 
FROM ship 
WHERE EXISTS T2 
Create table T7 as: 

SELECT s_name, displacement 
FROM ship 
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WHERE exojd IN T3 



Create table R2 as: 

T6 INTERSECT T7 
Create table RESULT as: 

R1 UNION R2 

Refer to Appendix A of this thesis for a comprehensive example of complex 

queries. 
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V. IMPLEMENTATION OF COMPLEX QUERIES 

In this chapter, we will first present the user interface for all types of queries 
supported by the MDBMS prototype, then give the query processing for each type of 
query in detail and, finally, we will mention the necessary procedures for linking and 
running the system. 

A. USER INTERFACE 

In section FV.B., we discussed the design of complex queries using the SQL 
language. A decision was made to use an interactive interface instead of using an 
extended version of SQL as the user interface. The idea behind this is to let the casual 
users use the system more easily. In this section, we present the interface design for the 
retrieval operations inqjlemented so far by giving examples, rather than describing the 
user interface in an abstract manner. 

1. Simple Queries 

According to our classification, a simple query is a query involving one or 
more conditions in the WHERE clause of an SQL statement with the Boolean operator 
and between conditions. Further, none of these conditions include a nesting condition. Let 
us clarify what we have just said with an example: 

Query: Retrieve the name, rank, salary, picture and voice recording of the 
commanding officers who reported for duty before 1989 and who are stationed at ships 
whose pictures show "gas turbine powered ship". 
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SQL statement for the above query: 

SELECT o_name, rank, salary, picture, voice 
FROM officer, ship 

WHERE officer.o_id=ship.exo_id and rep_yr<1989 and 

ship.picture(CONTAINS, "gas turbine powered ship"); 

When the user wants to specify such a query in the MDBMS, he will first 
select the option ’retrieve’ from the main menu. The system then responds with 
appropriate instractions step by step. Each time when the user’s response is entered, the 
system will return to ask for the next piece of information. The following operations are 
thus required to complete the simple query above (the scripts in bold type represent the 
user’s responses). 



Multimedia Database Management System 



1. Create Table 

2. Insert Tuple 

3. Retrieve 

4. Delete 

5. Modify 

6. Print out current data information(test purpose) 
0. Quit 



Selea your choice :: 3 
Your Selection is RETRIEVAL! 

Enter table name to bold the temporary result of the query: temp 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship, officer 

Please enter your join condition 

(<?> for help!) : ship.cq>t_id=officer.o_id 

Table ship 

Selea the attiibute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC>for no attribute) 

SELECT ATTRIBUTECS) : <ESC> 
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Table officer 

Select the altribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC> for no attribute) 

SELECT ATTRIBUTE(S) : o_name, rajolc, salary, photo, voice 

Any condition ? (y/n): y 

Group condition ? (y/n): y 

Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. tablel where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 0 

Enter table name: officer 
Enter attribute: rcp^yr 

Enter the condition: <1989 
Where rep_yr <1989 



There are 4 records that match the query 
record id 1 o_name:Jeff Kulp rank:Capt salary: 10000 

record id 2 o_name:Dan Hendricks rank:Cdr salary:8500 

record id 3 o_name:Yavuz Atila rank:Cdr salary:7500 

record id 4 o_name:John Daley rank:Cdr salary:9000 



photo id is 1 
photo id is 2 
photo id is 3 
photo id is 4 



voice id is 1 
voice 2 
voice 3 
voice 4 



Do you want to see any image data ? (y/n): n 
End group 7 :n 



Retrieval Operations Menu 



0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 0 

Your Selection is Simple Condition 
Enter table name: ship 
Enter attribute: picture 

Please enter your query description 

* noun phrases separate by commas and end with an exclamation mark 

♦ sentence end with a period. 

(end whole description with an empty line): 
gas turbine powered ship! 
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Searching 

Below is the result of the first 2 conditions in group 1 : 

There are 2 records that match the query 

record id 1 o_name:Yavuz Atila rank:Cdr salary:7500 photo id is 3 voice 3 
record id 2 o_name:John Daley rank:Cdr salary:9000 photo id is 4 voice 4 

Do you want to see any image data ? (y/n):n 
End group ?:y 



Below is the result of group 1 : 

record id 1 o„iiame:Yavuz Atila rank:Cdr salary:7500 photo id is 3 
record id 2 o_name:John Daley rankrCdr salary:9000 photo id is 4 



voice 3 
voice 4 



Do you want to see any image data ? (y/n):n 
End condition ?:y 



Below is the final result of all groups : 

record id 1 o„name:Yavuz Atila rank:Cdr salary:7500 photo id is 3 
record id 2 o_name:John Daley ranktCdr salary;9000 photo id is 4 



voice 3 
voice 4 



Do you want to see any image data ? (y/n):y 

Which tuple’s image do you want to see? (enter record id) : 1 



Record no 1 filename :/tmp_mnt/n/virgo/work/mdbms/MDBMS/91 163. 173948 
The following photo has been found: 

Number: 1 
Description: 

»black hair,big nose,thin body, tall person with glasses I 
« 

Do you want to see the photo?: y 



The photo is displayed on the screen 



Do you want to see more image data ? (Y/N): n 



Which tuple’s sound do you want to hear? (enter record id): 2 
Sound management 
Record no 2 

Play the sound ? (y/n): y 
Sound is play-backed 

Do you want to hear more sound data ? (Y/N): n 
If you want to intersect / union / minus any two tables: 



Show image .... 



1. INTERSECT two tables 

2. UNION two tables 

3. MINUS 
0. Quit 



64 



Select your choice :: 0 

More selections at this level ? (y/n): n 
More levels ? (y/n): n 

Note that after the tuples that match the query are retrieved, the user is asked 
which tuple’s picture he wants to see and which tuple’s voice he wants to hear. This is 
very convenient. In [REFIO], the media data was displayed tuple by tuple without asking 
the user for his choice which was inconvenient for the user of die MDBMS prototype. 

Another difference between our interface design and [REFIO] is the addition 
of the ’Retrieval Operations Menu’. This menu is required to ask the user if his condition 
is a simple one or a nesting condition. 

2. Queries Using Nesting Condition 

As we mentioned in IV.2, a nested query is a complete SELECT-FROM- 
WHERE query within the WHERE clause of a another query which is called the outer 
query. In this subsection, we present the implementation of nested queries using the 
nesting operators IN, NOT IN, EXISTS and NOT EXISTS. 

a. IN 

When the user wants to specify a nested query with the nesting operator 
IN, he should enter the inner queiy, put the result in a temporary table and then he should 
enter the outer query. Let us give an example to clarify this: 

Query; Retrieve the names, types and pictures of the ships whose 
weapon’s picture shows "high speed guided torpedo". 

An extended SQL statement for the above query: 
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SELECT s_name, type, picture 
FROM ship, ship_weapon 
WHERE ship.s_no=ship_weapon.s_no 
and w_name IN 
(SELECT w_name 
FROM weapon 

WHERE weapon.picture (CONTAINS, "high speed guided 

torpedo")); 

In order to avoid repetition, we will not give all the steps the user has to 
follow to complete the above query, instead we will explain them. 

The above query consists of the inner query (die SELECT-FROM- 
WHERE query in the parenthesis) and the outer query. The user will first enter the inner 
query in the same way as the example of simple queries given in section V.A.l. So far, 
we assume that we have the result of the inner query in the temporary table "tempi". We 
can, now, present the rest of the steps that the user has to follow to get the final result 

of the whole query: 

More selections at this level? (y/n): n 
More levels? (y/n): y 

Enter table name to hold the temporary result of the query: result 

Select the table(s) separate by comma <,> : (<?> for HELP!) 

SELECT TABLE(S): ship, ship_weapon 

Please enter your join condition 

(<?> for help!) : ship.s_no=ship_weapoo.s_no 

Table ship 

Select the attribute(s) separated by comma <,> ; (<?> for HELP!) 

SELECT ATTRIBUTE(S) 
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(Hit <ESC> for no attribute) 

: s_name, type, picture 

Table ship_weapon 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

:<ESC> 

Any condition 7 (y/n): y 
Group condition 7 (y/n): n 

Retrieval Operations Menu 



0. Simple Condition 

1. table! where EXISTS table2 

2. tablel where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 3 
Your Selection is tablel IN table2 

Enter the temp table name related to IN : tempi 

Enter attribute for the appropriate table for condition of IN : w_name 

Table tempi ♦♦ 

SELECT ATTRIBUTE (only one attribute!): w joame 
There is 1 record that match the query 

record id 1 s_name : Michigan yr^built : 1982 picture id is 5 

Do you want to see any image data 7 (y/h): n 
Do you want to see more image data 7 (Y/N): n 

If you want to intersect / union /minus any two tables: 



1. INTERSECT two tables 

2. UNION two tables 

3. MINUS 
0. Quit 



Select your choice :: 0 
More selections at this level 7 (y/n): n 
More levels 7 (y/n): n 
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b. NOTIN 



Let us present the user interface of a nested query including the 
comparison operator NOT IN by giving an example query first. 

Query: Retrieve the name, rank, pictures and voice recording of the 
commanding officers who are not stationed at ships whose picture shows "gas turbine 
powered sWp". 

An extended SQL statonent for tfae above query using the conq)arison 
operator NOT IN can be written as follows: 

SELECT o_name, rank, photo, voice 
mOM officer 
WHERE o_id NOT IN 
(SELECT capt_id 
FROM ship 

WHERE sh^.picture (CONTAINS, "gas turbine powered ship"); 
As we did for nested queries using the comparison operator IN, we will 
not repeat aU the steps to be followed by the user for specifying the nested query above 
either, but just point out the differences in the user interface. 

We suppose that we have the result of the inner query in the temporary 
table "tempi". The rest of the user interface to get the result of the above query is as 
follows; 

More selecdoos at this level ? (y/n): n 
More levels ? (y/n): y 

Enter table name to bold the temporary result of the query: result 
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Select the table(s) separate by comma <,> : (<?> for HELPI) 
SELECT TABLE(S): officer 

Table officer 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: ojoame, rank, photo, voice 

Any condition 7 (y/n): y 
Group condition ? (y/n): n 

Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. tablel where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 4 
Your Selection is tablel NOT IN table2 

Enter the temp table name related to NOT IN : result I 
Enter attribute for table officer for condition of NOT IN : o_id 

Table ** resultl ** 

SELECT ATTRIBUTE (only one attribute!) : capt_id 
There are 3 records that match the query 

record id 1 o_name : Dan Hendricks rank : Cdr photo id is 2 voice 2 

record id 2 o_name : Fred Pong rank : Lt Cdr photo id is 9 voice 9 

record id 3 o_name : Huseyin Aygun rank : Lt Cdr photo id is 8 voice 8 

Do you want to see/hear any media data 7 (y/n): n 
More selections at this level 7 (y/n): n 
More levels 7 (y/n): n 



c. EXISTS 

The comparison operator EXISTS is usually used in conjunction with a 
correlated nested query. A correlated nested query is a nested query with a join condition 
related to the outer query. Considering this as a general rule, we ask the user to enter a 
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join condition between the inner query and the outer query. Nested queries with the 
comparison operator EXISTS work as follows: 

For each tuple of the outer query, the nested query is evaluated; if at least 
one tuple exists in the result of the nested query then that tuple of the outer query is 
retrieved. 

Let us give an example for a nested query with the nesting operator 

EXISTS: 

Query: Retrieve the name, type and picture of the ships whose weapon’s 
picture shows "long_range missile against land targets". 

The extended SQL statement for the above query: 

SELECT s_name, type, picture 
FROM ship, ship_weapon 
WHERE ship.s_no=ship_weapon.s_no 
and w_name EXISTS 
(SELECT w_name 
FROM we^K)n 

WHERE weajjon.picture (CONTAINS, "long_range missile against 

land targets")); 

The user interface portion, after the result of the inner query is put in the 
temporary table "tablel", is as follows: 

More selections at this level ? (y/n): n 
More levels 7 (y/n): y 

Enter table name to hold the temporary result of the query: result 
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Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship, ship_weapon 

Please enter your join condition 

(<?> for help!) : ship.s_no=«hip_weapon.s_no 

Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: s_name, type, picture 

Table ship_weapon 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: <ESO 

Any condition ? (y/n): y 
Group condition ? (y/n): n 

Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table! 

2. table 1 where NOT EXISTS table! 

3. tablel IN table! 

4. tablel NOT IN table! 



Select your choice :: 1 

Your Selection is tablel where EXISTS table! 

Enter the temp table name related to EXISTS : resultl 
Please enter your join condition 

between the appropriate table and ** tempi ** :ship_wcapon.w_name=weapon.w_name 

There are ! records that match the query 
record id 1 s_name : Kitty Hawk type : carrier 

record id ! s_name : Mississippi type : cruiser 
Do you want to see/hear any media data ? (y/n): n 

<L NOT EXISTS 

The comparison operator NOT EXISTS is also used in conjunction with 

a correlated nested query. NOT EXISTS works as follows: 



picture id is 1 
picture id is ! 
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For each tuple of the outer query, the nested query is evaluated; if the 
tuple does not exist in the result of the nested query then that tuple of the outer query is 
retrieved. 

As we did for EXISTS, we again ask the user a join condition between 
the inner query and the outer query. 

Query: Retrieve the name and rank of executive officers who did not 
anend Gulf War and show their photographs. 

The extended SQL statement for the above query: 

SELECT o_name, rank, photo 
FROM officer 
WHERE NOT EXISTS 
(SELECT * 

FROM ship, mission 
WHERE ship.m_id=mission.m_id 

and mission.m_name="Gulf War"); 

Suppose that the user has already put the result of the inner query in the 

temporary table "tempi". The rest of the steps to be followed are given below: 

More selections at tbis level 7 (y/n): n 
More levels ? (y/n): y 

Enter table name to hold the temporary result of the query: result 

Select the table(s) separate by comma <,> : (<?> for HELP!) 

SELECT TABLE(S): officer 
Table officer 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 

SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 
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: o_name, rank, photo 

Any condition 7 (y/n): y 
Group condition ? (y/n): n 

Retrieval Operations Menu 



0. Simple Condition 

1. tablet where EXISTS table! 

2. tablet where NOT EXISTS table2 

3. tablet IN table! 

4. tablet NOT IN table! 



Select your choice :: ! 

Your Selection is tablet where NOT EXISTS table! 

Enter the temp table name related to NOT EXISTS : tempi 
Please enter your join condition 

between the appropriate table and ** tempi : ofBccr.o_id=ship.exo_kl 
There are ! records that match the query 

record id 1 o_name : Huseyin Aygun rank : Lt photo id is 1 

record id ! o_name : Yavuz Alila rank : Lt Cdr photo id is 3 

Do you want to see any image data 7 (y/n): n 

Refer to Appendix A of this thesis for a complex query including nested 

queries and multiple selections. 

3. Set Operations 

In this subsection we present the user interface for the set operations 
INTERSECTION, UNION and MINUS. As we did for nested queries we will only point 
out the differences in the user interface, instead of repeating all the steps to be followed 
by the user. 
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a- UNION 



Query: List the names, ranks, pictures and voice recordings of all tlie 
officers who worked as an executive officer or as a captain on the ships whose pictures 
show "nuclear submarine with many kinds of guided torpedoes". 

Extended SQL statement for this query; 

(SELECTo_name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.exo_id and ship.picture(CONTAINS, 
"nuclear submarine with many kinds of guided 
torpedoes")) 

UNION 

(SELECTo_name, rank, picture, voice 

FROM officer, ship 

WHERE officer.o_id=ship.capt_id and ship.picturefCONTAINS, 
"nuclear submarine with many kinds of guided 
torpedoes")); 

The above query consists of two subqueries with the set operator UNION 
between them. The user who wants to specify such a query will treat each of the two 
subqueries as simple queries, put their results in temporary tables and then use the set 
operations menu to get the final result. Now let us assume we have the result of the first 
subquery in "tempi" and the result of the second subquery in "temp2". The remaining 
steps to be followed are as follows: 
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If you want to intersect / union /minus any two tables: 



1. INTERSECT two tables 

2. UNION two tables 

3. MINUS 
0. Quit 



Select your choice :: 2 
Your selection is UNION 

Enter the name of the first temp table: tempi 

Enter the name of the second temp table: temp2 

Enter a temp table name to hold the result of the query: result 

There are 2 records that match the query 

record id 1 o_name : Rosemary Stewart rank : Lt photo id is 1 voice id is 5 

record id 2 o_name : Yavuz AUla rank : Lt Cdr photo id is 3 voice id is 7 

Do you want to see/hear any media data 7 (y/n): n 

b. INTERSECTION 

Query: Retrieve the names, power and pictures of all weapons whose 
pictures show "high speed close range defense weapon" along with the ones located on 
board the ship "Elliott". 

Extended SQL statement for the above query can be written as follows: 
(SELECTw_name, power, picture 
FROM weapon 

WHERE weapon.picture(CONTAINS, "high speed close range 
defense weapon")) 

INTERSECT 

(SELECTw_name, power, picture 
FROM ship, ship_weapon, weapon 
WHERE ship.s_no=ship_weapon.s_no and 
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ship_weapon.w_name=weapon.w_name); 

As we did for UNION, let us assume that we have the result of the first 
subquery in "tempi" and the result of the second subquery in "temp2". The remaiining 

steps to be followed are as follows: 

If you want to intersect / union Aninus any two tables: 

1. INTERSECT two tables 

2. UNION two tables 

3. MINUS 
0. Quit 



Select your choice :: 1 
Your selection is INTERSECT 
Enter the name of the first temp table: tempi 
Enter the name of the second temp table: temp2 
Enter a temp table name to bold the result of the query: result 

There is 1 record that matches the query 

record id 1 w_name : Trident power : 100 jAoto id is 1 
Do you want to see any image data 7 (yAi): a 

c. MINUS 

Query; Retrieve the names, ranks, and pictures of aU the officers whose 
picture show "tall person" but not the ones whose pictures show "blond hair". 

Extended SQL statement for this query can be written as follows: 
(SELECT o_name, rank, picture 
FROM officer 

WHERE officer ,picture(CONTAINS, "taU person")) 

MINUS 

(SELECT o_name, rank, picture 
FROM officer 
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WHERE officer.picture(CONTAINS, "blond hair")) 

Let us suppose that we have the result of the first subquery in "tempi" 
and the result of the second subquery in "temp2". The remaining steps to be followed are 
as follows: 

If you want to intersect / union /minus any two tables: 

1. INTERSECT two tables 

2. UNION two tables 

3. MINUS 
0. Quit 



Select your choice :: 3 
Your selection is MINUS 

Enter the name of the first temp table: tempi 

Enter the name of the second temp table; temp2 

Enter a temp table name to hold the result of the query: result 

There are 2 records that match the query 

record id 1 o_name : Rosemary Stewart rank : Lt photo id is 1 

record id 2 o_name : Yavuz Atila rank : Lt Cdr photo id is 3 

Do you want to see any image data 7 (y/n): o 



4. Aggregate Functions: 

As we mentioned in IV.B.4, aggregate functions are built-in functions in 
INGRES SQL. These are COUNT, SUM, MAX, MIN and AVG. In this subsection we 
will present the user interface of the aggregate functions. 

a. COUNT 

The built-in function COUNT returns the number of tuples resulting from 
a query. Let us give an example to clarify how COUNT works: 
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Quciy: How many executive officers are there in the fleet, whose pictures 
show "tall person with black hair"? 

The extended SQL statement for the above query: 

SELECT COUNT(o_name) 

FROM officer 

WHERE officer.picture (CONTAINS, "tall person with black hair"); 
When the user wants to specify a query as above he should first select 
the Retrieve option from the Main Menu and then follow the following steps to get the 
result: 

Enter table name to hold the temporary result of the query: temp 
Selea the table(s) separate by comma <,> : (<?> for HELPI) 

SELECT TABLE(S): officer 

Table officer 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 

(Hit <ESC> for no attribute) 

SELECT ATmiBUTE(S) 

: CNT(o_name) 

Any condition ? (y/n) :y 
Group condition ? (y/n): n 

Retrieval Operations Menu 



0. Simple Condition 

1. tablet where EXISTS table2 

2. tablet where NOT EXISTS table2 

3. table! IN table2 

4. tablel NOT IN table2 



Select your choice :: 0 
Enter attribute: picture 
Please enter your query description 

* noun phrases separate by commas and end with an exclamation mark 

* sentence end with a period. 

(end whole description with an empty line): 
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tall person with black haiil 
Searching 

There are 2 records that match the query 
record id 1 COUNT(o_name) = 2 
record id 2 COUNT(o_name) = 2 

b. SUM, AVG, MAX, MIN 

The built-in functions SUM, AVG, MAX and MIN arc applied to a set 
or multiset of numeric values and returns the sum, average, maximum and minimum of 
those values. Let us illustrate this with an example: 

Query: Find the sum, average, maximum and mmimum of the salaries of 
the commanding officers who are stationed at ships whose picture shows "nuclear 
submarine with many different kinds of torpedoes". 

An extended SQL statement for the above query can be written as 

follows: 

SELECT SUM(salary), AVG(salary), MAX(salary), MIN(salary) 

FROM officer, ship 

WHERE ship.capt_id=officer.o_id and sh^.picture(CONTAlNS, "nuclear 

submarine with many different kinds of torpedoes"); 

When the user wants to specify such a query he should first select the 

Retrieve option from the Main Menu and then follow the following steps: 

Enter table name to hold the temporary result of the query: temp 

Select the table(s) separated by comma <,> : (<?> for HELP I) 

SELECT TABLE(S): ship, officer 

Please enter your join condition 
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(<?> for helpl) ; ship.captJd=officer.o_id 
Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP I ) 
(Hit <ESC> for no attribute) 

SELE<7T ATTRIBUTE(S) : <ESC> 

Table officer 

Select the attribute(s) separated by comma <,> ; (<?> for H E LP l) 
(Hit <ESC> for no attribute) 

SELECT ATTRIBUTE(S) 

: sum(salary), avg(salaiy), max(salary), miD(salary) 

Any condition ? (y/n): y 
Group condition 7 (y/n): n 

Retrieval Operations Menu 



0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 0 

Enter table name: ship 
Enter attribute: picture 

Please enter your query description 

noun phrases separate by commas and end with an exclamation mark 
* sentence end with a period. 

(end whole description with an empty line): 

nuclear submarine with many different types of toipedoesl 

Searching 

Result of the query: 

SUM(salary)=15000 AVG(salary)=7500 MAX(salaiy)=8000 MIN(salafy)=7000 

B. QUERY PROCESSING 

In Chapter IV, the various cases in which an extended query (i.e., a simple query 
or a complex query) must be decomposed into multiple SQL queries are illustrated. We 
also presented that this method of decomposition required the generation of temporary 
relational tables for further processing. 
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Complex query operations actually require a compiler action to compile the user 
input into SQL statements for INGRES. In addition to the catalog tables given in [REF8], 
other tables are also required to keep the various information for the purpose of complex 
query operations. In this section we present the data structures used for implementing 
complex queries. 

In order to process a given query, the system needs information on the table name, 
the attribute names, and the data types of the attributes. The table Selection_Array is 
created for this purpose as mentioned in [REF 10]. Since aggregation is required for many 
database applications, we decided to add the aggregate_type to the Selection_Array, to 
hold the type of the built-in aggregate fimctions in SQL. The built-in aggregate functions 
in SQL are, as mentioned in IV.B.4, COUNT, SUM, AVG, MAX, MIN and these are 
used in the SELECT-clauses of queries. 

The second structure is the Condition_Array table. This structure holds the 
conditions for the query and contains the table name, attribute name and the condition for 
each selection. This is also presented in [REFIO] in detail. 

The third structure used by [REFIO] was Group_Array table which holds the index 
to the Condition_ Array table for each group in the query. We did not use this structure 
to implement complex queries, since we decompose a given complex query into multiple 
simple queries, put their results in temporary tables and recompose these results to get the 
final result. 

When the user specifies a nested query, the query is decomposed into multiple 
simple queries beginning from the innermost query. The information about the table 
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name, attribute names, the data types of the attributes, etc... are put into the data structures 
mentioned above. After the result is retrieved in a temporary table entered by the user, 
the data structures are initialized at the end of the loop controlling die selections at the 
same level or at the end of the outer loop controlling the selections at different levels. 

When the user specifies a complex query consisting of multiple selections, the query 
is again decomposed into multiple simple queries (i.e., a query with one group and 
arbitrarily many conditions in this group). Each simple query is evaluated separately and 
its result is put into a system generated temporary table. Finally the results of these 
simple queries, depending on the Boolean operators or or and between the groups, are 
recomposed using the set operations UNION or INTERSECTION to get the final result. 
Four arrays ate used to hold the temporary table names and to let the user enter a query 
consisting of arbitrarily many groups and arbitrarily many conditions in each group. 

As we mentioned in FV.A.l, INGRES does not support host variables. INGRES 
considers the MDBMS program as an application program. Information received from the 
user at run time cannot be passed to INGRES via the embedded C SQL statements. To 
solve this problem, we had to modify the C code generated by INGRES in the 
precompilation process, when SQL statements have already been transferred into C code, 
in such a way that variables can be assigned values at run time. The result is then 
compiled by the C compiler for execution. 
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C. HOW TO LINK AND RUN THE SYSTEM 



The system is buUt on the SUN workstation on the server "Virgo" at cs.nps.navy.mil 

under the account /n/virgo/woik/mdbms/MDBMS/db. db is an object code module ready 

for execution. The program itself is called db.sc. The program db.sc is first precompiled 

by INGRES SQL precompiler to produce db.c. After we get db.c, we have to compile this 

program using the C compiler into an object code and link it to the INGRES library, 

Suntools library, Sunwindows library, Sunpixrects library and other subprograms shown 

in Figure 3.4. The other files needed in the same directory are prolog_parser, 

imagei_image_facts and diction.add. To make the link process simpler, a Makefile is used 

as shown in Figure 5.1. 

MDBMS_PATH = /n/virgo/woik/mdbms/MDBMS 
PLPATH = /n/vi^o/woik/mdbms/MDBMS/PROLOG_SOURCE 
OBJMODS=lSfunctions.o ISsubroutine.o ipc_pl_call.o plcall_xdr.o\ 
plcall_clnt.o CatalogManagement.o SoundModule.oX 
Userlnierface.o CreateModuIe.o insertModule.o Retrieve.oX 
ImageModule.o 

PLMODS = $(PLPAlH)/dict.pl\ 

$(PLPATH)/diction.pl \ 

$(PLPATH)/interface.pl \ 

$(PLPATH)/simple.pl \ 

$(PLPATH)/list_ulil.pl \ 

$(PLPATH)/read_capt.pl \ 

$(PLPATH)/variable.pl \ 

$(PLPATH)/gen_utU.pl \ 

$(PLPATH)/number.pl \ 

$(PLPATH)/semantics.pl 
DEFINE = defines.h eirors.h 
Global = GlobaIVariables.h 
RPC = plcall.h 
FLAGS = -g 
SERVER* ai9 
RSH = rsh 
LINT = lint 
FILES = Makefile \ 

ipc_pl_server.c \ 
ipc_pl_call.c \ 
plcall.h \ 
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plcall_svc.c \ 
plcaU_xdr.c \ 
plcalJ_clnl.c \ 

IMPORTANT_FILES \ 
defines .h \ 
errors.h \ 

ISsubroutine.c \ 

ISfunctions.c \ 
comq>rolog_neu.c \ 

x.o:; cc -c $(FLAGS) -o $@ $*.c 

Retrieve.o CrealeModule.o InsertModule.o CalalogManagement.o \ 
Userinierface.o SoundModule.o ImageModule.o: $(Global) 

ipc_pl_call.o ipc_pl_server plcall_svc.o plcall_xdr.o plcall_clnl.o: $(RPC) 
Retrieve.o CrealeModule.o InsertModule.o CalalogManagement.o \ 
Userinierface.o SoundModule.o ISIfunctions.o ISsubrouline.o \ 
ipc_pl_calI.o ipc_pl_server ImageModule.o: $(DEF1NE) 

db: db.o $(OBJMODS) 

@echo "creating DATABASE ..." 
cc $(FLAGS) db.o\ 

$(OBJMODS) \ 

/ingres/lib/libqlib /ingres/lib/compatlib \ 

-Isuntool -Isunwindow -Ipixrect -Im \ 

-o db 

db.c: db.sc 

esqlc db.sc 

plcall_xdr_sun4.o: plcaU_xdr.c 

$(RSH) $(SERVER) cc -c $(FLAOS) \ 

-o $(MDBMS_PATH)/plcalI_xdr_sun4.o \ 
$(MDBMS_PATH)/plcaU^xdr.c 

plcaII_svc_sun4.o: plcall_svc.c 

$(RSH) $(SERVER) cc -c $(FLAGS) \ 

-o $(MDBMS_PATH)/plcall_svc_sun4.o \ 
$(MDBMS_PATH)/plcaII_svc.c 

ipc_pLserver: rpc_pLserver.c \ 
plcaU_svc_sun4.o \ 
plcaU_xdr_sun4.o \ 
comcprolog_neu.c \ 

$(DEFINE) 

@echo "creating rpc_pl_server ..." 

$(RSH) $(SERVER) cc $(FLAGS) $(MDBMS^PATH)/ipcj)Lserver.c \ 
$(MDBMS_PATH)/plcall_svc_sun4.o \ 
$(MDBMS_PATH)/plcall_xdr_sun4.o \ 

-0 $(MDBMS_PATH)/ipc_jpl_server 
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prolog_parser; $(PLMODS) $(PLPATH)/diction.add 
@echo "creating prolog_parser ..." 

sort $(PLPATH)/diction.body $(PLPATH)/diction.add -o $(PLPATH)/diction 
cat $(PLPATH)/diction.head $(PLPATH)/diction > $(PLPATH)/diction.pl 
im $(PLPATH)/diction.qof 
$(RSH) $(SERVER) qpc -c $(PLPATH)/diction.pl 

$(RSH) $(SERVER) qpc -D $(PLPATH)/iiiterface -o $(PLPATH)/prolog parser 
mv $(MDBMS_PATH)/prolog_parser $(MDBMS_PATH)/prolog_parser.last Version 
cp $(PLPATH)/prolog_parser $(MDBMS_PATH)^rolog_parser 

Int: *.c 

$(LINT) $? 

@toucb Int 

print: $(FIUES) 

@echo "Print the following files:" 

@ls $? 

@echo "Interrupt with Control c" 

@sleep 3 
pr $? I print 
@touch print 

Figure 5.1. Makefile 

When the user of the MDBMS prototype wants to compile and link a new 
implementation of db, he must just type "make db" at shell prompt. The execution module 
will be named db. In the rest of this section we present detailed information about the 
Unix utility make. 

Make is a command generator. It generates a sequence of commands for execution 
by the Unix shell. Make is mostly used to sort out dependency relations among files. For 
example, a program must be generated linking object files and libraries, which in turn 
must be created from a programming language source files. If we modify one or more 
source files, we must re-link the program after recompiling all the sources which are 
dependent on the modified files. This process is normally repeated many times during the 
course of a project. 
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It is this process that "make" greatly simplifies. By recording once and for all the 
specific relationships among a set of files, we can thereafter let make automatically 
perform all updating tasks. We need only to issue the command: 

$ make db 

Make then carries out those tasks necessitated by the project work since the 
previous make command. It achieves this by examining the file system to determine when 
the relevant files were last modified. For example, if file A depends on file B, and if file 
B was modified after file A, then file A must be "re-made"-compiled, linked, or whatever. 

We must define the dependencies between modules or files in a descrq>ti<Mi file. 
This file is normally given the name Makefile. A description file consists of many entries. 
Each entry consists of a line containing a colon (the dependency line) and one or more 
command lines begirming with a tab. To the left of the colon on the dependency line are 
one or more targets; to the right of the colon are component files on which the targets 
dep>end. The tab-indented command lines then show how to make the targets out of their 
components. For example in Figure 5.1: 
db.c: db.sc 

esqlc db.sc 

means that db.c depends on the file db.sc. db.sc is executed (i.e., the program db.sc is 
precompiled by the INGRES SQL precompiler) only if db.sc is modified after the last 
time db.c was made. 

We can use any legitimate shell commands and filename pattem_matching 
characters in a description file. For example some of the shell commands and filename 
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pattern-matching characters used in the description file in Figure 5.1 are sort, cat, rm, mv, 
cp and *.c. 

In a description file, we can use some macro definitions. A macro definition is a 
line containing an equals sign (=) and not preceded by a colon or a tab. Typically, macro 
definitions are grouped together at the beginning of the description file. The name to the 
left of the equals sign is assigned the string of characters following the equals sign. For 
example the line: 

MDBMS_PATH = /nA^irgo/work/mdbms/MDBMS 
is a macro definition and subsequent references to 
$(MDBMS_PATH) 
are interpreted as 

/n/virgo/work/mdbms/MDBMS 

make also defines several "internal macros" that can simplify the description fUe. 
One of them is $?. $? evaluates to the list of components that are younger (i.e., more 
recently modified) tlian the current target, 

S@ evaluates to the current target name - that is, the target being made. 

In a description file, we can define suffix rules, which greatly reduces the 
complexity of our description files. For example, the suffix rule x.o in Figure 5.1 
describes how to make a .o file from a ,c file. 

Finally, an important command-line usage of make is: 

$make -f Makerose dbrose 
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which tells make to use the file "Makerose" as a description file to generate the target 
"dbrose". 
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VI. CX)NCLUSION AND SUMMARY 



Multimedia database management systems manage multimedia data such as image 
data and soimd data in addition to fonnatted data. In this thesis, a prototype has been 
developed maintaining the standard data and media data to implement complex queries. 

This thesis outlined some sample applications in which multimedia data is required 
and presented the design and implementation of complex queries (i.e., nesting conditions 
and multiple selections) in addition to set operations (UNION, INTERSECTION and 
MINUS) and aggregate functions (COUNT, SUM, AVG, MAX, MIN). 

Having a nested query means a complete SELECT-FROM- WHERE query is within 
the WHERE-clause of another query. Nested queries are evaluated beginning from the 
innermost query to the outer queries. The intermediate result at each level is put into a 
temporary table and then the query at the next level is evaluated until the final result is 
received. 

Multiple selections refer to queries with arbitrarily many groups in the query and 
arbitrarily many conditions in each group. Each group is evaluated and its result is put 
into a temporary table. The results of all groups are recomposed using the set operations 
UNION or INTERSECTION to get the final result. 

Besides UNION and INl'ERSEC I'lON, the set operation MINUS is implemented 
to let the user evaluate the difference of two tables. 



89 



Finally aggregate functions COUNT, SUM, AVG, MAX, MIN are implemented to 
make it possible to find the number of tuples, the sum, average, maximum and minimum 
of values for a given query. 

An interactive interface was implemented instead of using an extended version of 
SQL as the user interface. The idea behind this is to let the casual users use the system 
more easily. 

At present only sound data and image data are supported as media data types. 
However, it is possible to extend the capability of the system to handle other media types 
such as video, text, signals in a similar manner. 

Future works will concentrate on implementation of a graphical user interface for 
the system, the help utility and the transaction processing. For graphical user interface 
issue, some research is being done to find the best tool to implement the design done by 
[REF9]. After the graphical user interface is implemented, it is considered that a help 
utility for the entire system would let users with little background to use the system more 
easily. 
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APPENDIX A - A COMPREHENSIVE EXAMPLE OF DESIGN AND USER 



INTERFACE OF COMPLEX QUERIES 

Since it is usually very difficult to express complex queries in words, we will 
present an artificial example to show how a complex query with a couple of groups and 
a couple of conditions in each group, some being simple conditions some nesting 
conditions, is evaluated according to the design we have presented in Chapter IV of this 
thesis. 

SQL Query: 

SELECT o_name, picture, voice 

FROM officer 

WHERE ( o_id IN 
(SELECT exo_id 
FROM ship 
WHERE (EXISTS 
(SELECT * 

FROM ship-weapon, ship 
WHERE ( w_name IN 
(SELECT w_name 
FROM weapon 

WHERE fire_range < 100 and weapon.picture (CONTAINS, "high 
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speed guided torpedo")) 
and ship.s_no = ship_weapon.s_no 
and s_no = "SSBN 727" 
and s_no IN 

(SELECT s_no 
FROM ship 

WHERE yr_buUt > 1975)) 
or (NOT EXISTS 
(SELECT * 

FROM ship, ship_weapon 

WHERE ship.s_no=ship_weapon.s_no and displacement > 15,000) 
and w_name IN 

(SELECT w_name 
FROM weaj>on 

WHERE weaj>on.picture (CONTAINS, "long range missile 
against land targets"))) 

and ship.picture (CONTAINS, "nuclear submarine with many missiles")) 
or (type = "cruiser") 
and salary > 6000) 
or ( NOT EXISTS 
(SELECT ♦ 

FROM ship, officer 



94 



WHERE officer.o_id=ship.exo_id and ship.picture (CONTAINS, "gas turbine 
powered sliip") 
and yr_built < 1975)); 

The above query consists of four nesting levels and is evaluated as follows; 
Create Table T1 as: 

SELECT w_name 
FROM weapon 

WHERE fire_range < 100 and weapon.picture (CONTAINS, "high 
speed guided torpedo"); 

Create Table T2 as: 

SELECT s_no 
FROM ship 

WHERE yr_built > 1975; 

Create Table T3 as: 

SELECT * 

FROM ship, ship_weapon 

WHERE ship_weap>on.s_no=ship.s_no and displacement > 15,000; 

Create Table T4 as: 

SELECT w_name 
FROM weapon 

WHERE weapon.picture (CONTAINS, "long_range missile against land 
targets"); 
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Create Table T5 as: 



SELECT * 

FROM ship_weapon, ship 

WHERE sliip.s_no=ship_weapon.s_no and w_name IN Tl; 
Create Table T6 as: 

SELECT * 

FROM ship_weapon,ship 
WHERE ship.s_no=ship_weapon.s_no 
and s_no="SSBN 727"; 

Create Table T7 as: 

SELECT * 

FROM ship_weapon, ship 

WHERE ship.s_no=ship_weapon.s_no and s_no IN T2; 
Create Table T8 as: 

SELECT * 

FROM ship_weapon, ship 

WHERE ship_weapon.s_no=ship.s_no and NOT EXISTS T3; 
Create Table T9 as: 

SELECT * 

FROM ship_weapon, ship 

WHERE ship.s_no=ship_weapon.s_no and w_name IN T4; 
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Create Table R1 as: 



(T5 INTERSECT T6 INTERSECT T7) UNION (T8 INTERSECT T9); 
Create Table TIP as: 

SELECT exo_id 
FROM ship 
WHERE EXISTS RI; 

Create Table Til as: 

SELECT exo_id 
FROM ship 

WHERE ship.picture (CONTAINS, "nuclear submarine with many missiles"); 
Create Table T12 as: 

SELECT exo_id 
FROM ship 

WHERE type="cmiser"; 

Create Table R2 as: 

(TIO INTERSECT Til) UNION T2 
Create Table T13 as: 

SELECT ♦ 

FROM ship, officer 

WHERE officer.o_id=ship.exo_id 

and ship.picture (CONTAINS, "gas turbine powered ship") 
and yr_built < 1975; 
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Create Table T14 as: 



SELECT o_name, picture, voice 
FROM officer 
WHERE o_id IN R2; 

Create Table T15 as: 

SELECT o_name, picture, voice 
FROM officer 
WHERE salary > 6000); 

Create Table T16 as: 

SELECT o_name, picture, voice 
FROM officer 

WHERE NOT EXISTS T13; 

Create Table RESULT as: 

(T14 INTERSECT T15) UNION T16; 

TTie user interface for the SQL query given at the beginning of this Appendix is as 
follows; 



Multimedia Database Management System 



1. Create Table 

2. Insert Tuple 

3. Retrieve 

4. Delete 

5. Modify 

6. Print out current data information(test purpose) 
0. Quit 
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Select your choice :: 3 
Your Selection is RETRIEVAL! 

Enter table name to hold tlie temporary result of the query: T1 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): weapon 

Table weapon 

Select the attribute(s) separated by comma <,> ; (<?> for HELP!) 
(Hit <ESOfor no attribute) 

SELECT ATTRIBUTE(S) : w_name 

Any condition ? (y/n): y 

Group condition ? (y/n): y 

Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. table 1 IN table2 

4. tablel NOT IN table2 



Select your choice :: 0 

Enter attribute: fiic_range 
Enter the condition; <100 
Where fire_range <100 

There are 3 records that match the query 
record id 1 w_name: Vulcan Phalanx 
record id 2 w_name:Sea Sparrow 
record id 3 w_name:Mk48 Torpedo 

End group ? :n 

Retrieval Operations Menu 



0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 
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Select your choice :: 0 

Your Selection is Simple Condition 

Enter attribute: picture 

Please enter your query description 

* noun phrases separate by commas and end with an exclamation mark 

* sentence end with a period. 

(end whole description with an empty line): 
high speed guided torpedo! 

Searching 

Below is the result of the first 2 conditions in group 1 : 
record id 1 w_name:Mk48 Torpedo 

End group ?:y 

Below is the result of group 1 : 
record id 1 w_name:Mk48 Torpedo 

End condition ?:y 

Below is the final result of all groups : 
record id 1 w_name:Mk48 Torpedo 

If you want to intersect / union / minus any two tables: 



1. INTERSECT two tables 

2. UNION two tables 

3. MINUS 
0. Quit 



Select your choice :: 0 
More selections at this level 7 (y/n): y 

Enter table name to hold the temporary result of the query: T2 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): sh^ 

Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESOfor no attribute) 

SELECT ATTRIBUTE(S) : s_no 
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Any condition ? (y/n): y 

Group condition ? (y/n); n 

Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. table 1 IN table2 

4. table 1 NOT IN table2 



Select your choice :: 0 

Enter attribute: yr_built 
Enter the condition: >1975 
Where yr_built>1975 

There are 2 records that match the query 
record id 1 s_no:DDG967 
record id 2 s_no:SSBN727 

More selections at this level ? (y/n): y 

Enter table name to hold the temporary result of the query: T3 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): sh^, shq>_weapon 

Please enter your join condition 

(<?> for help!) : sh^.s_no=ship_wciq)on.s_no 

Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC>for no attribute) 

SELECT ATTRIBUTE(S) : s_no 

Table ship_weapon 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
(Hit <ESC>for no attribute) 

SELECT ATTRIBUTE(S) : <ESC> 

Any condition ? (y/n): y 

Group condition ? (y/n): n 
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Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 0 

Enter attribute: displacement 
Enter the condition: >15,000 

There are 2 records that match the query 
record id I s_no:CV63 
record id 2 s_no:SSBN727 

More selections at this level ? (y/n): y 

Enter table name to hold tlie temporary result of the query: T4 
Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): weapon 

Table weapon 

Select the attribute(s) separated by comma <,> ; (<?> for HELP!) 
(Hit <ESC>for no attribute) 

SELECT ATTRIBUTE(S) : w_name 

Any condition ? (y/n): y 

Group condition ? (y/n): n 

Retrieval Operations Menu 



0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 0 

Enter attribute: picture 

Please enter your query description 
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* noun phrases separate by commas and end with an exclamation mark 

* sentence end with a period. 

(end whole description with an empty line): 
long_range missile against land targets! 

Searching 

There is 1 record that match the query 
record id 1 w_no:Tomahawk 

More selections at tliis level 7 (y/n): n 
More levels ? (y/n): y 



Enter table name to hold the temporary result of the query: R1 

Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): shq)_weiq)on, shq> 

Please enter your join condition 

(<?> for help!) : ship.s_no==ship_weiq)on.s_no 

Table ship_weapon 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: s_no 
Table ship 

Select the attribute(s) separated by comma : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: <ESC> 

Any condition ? (y/n): y 
Group condition ? (y/n): y 

Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



103 



Select your choice :: 3 
Your Selection is table 1 IN table2 

Enter the temp table name related to IN : T1 

Enter attribute for table ship_weapon for condition of IN : w_naine 
Table ** T1 ** 

SELECT ATTRIBUTE (only one attribute!): w_name 

There is 1 record that match the query 
record id 1 s_no : SSBN727 

End group ? ;n 

Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. table 1 IN table2 

4. tablel NOT IN table2 



Select your choice 0 

Enter table name:ship_weapon 

Enter attribute: s_no 

Enter the condition: ="SSBN727” 

Below is the result of the first 2 conditions in group 1 : 
There is 1 record that match the query 
record id 1 s_no : SSBN727 

End group ? :n 



Retrieval Operations Menu 



0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 

3. tablel IN table2 
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4. table 1 NOT IN table2 



Select your choice 3 
Your Selection is table 1 IN table2 

Enter the temp table name related to IN : T2 

Enter attribute for table ship_weapon for condition of IN : s_do 

Table ** T2 ** 

SELECT ATTRIBUTE (only one attribute!): s_no 

Below is the result of the first 3 conditions in group 1 : 
record id 1 s_no ; DDG967 
record id 2 s_no : SSBN727 

End group ? :y 

Below is the result of group 1 : 
record id 1 s_no : DDG967 
record id 2 s_no : SSBN727 

End condition ? ;n 

Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. table! IN table2 

4. table 1 NOT IN table2 



Select your choice :: 2 

Your Selection is table! where NOT EXISTS table2 
Enter the temp table name related to NOT EXISTS : T3 
Please enter your join condition 

between table ship_weapon and ** T3 ** : T3.s_no=ship_weJ5)on.s_no 

There are 2 records that match the query 
record id 1 s_no:DDG967 
record id 2 s no:SSBN727 
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End group ? (y/n):n 



Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. table I IN table2 

4. table 1 NOT IN table2 



Select your choice :: 3 
Your Selection is table 1 IN table2 

Enter the temp table name related to IN : T4 

Enter attribute for table ship_weapon for condition of IN : w_name 

Table ♦* T4 ** 

SELECT ATTRIBUTE (only one attribute!): w_name 

There is one record that match the query: 
record id 1 s_no : SSBN727 

Below is the result of first two conditions in group 2: 
record id 1 s_no : SSBN727 

End group ? :y 

Below is the result of group 2: 
record id 1 s_no : SSBN727 

End condition 7 (y/n): y 

Below is the final result of all groups : 
record id 1 s_no : SSBN727 

More selections at this level ? (y/n); n 
More levels ? (y/n); y 

Enter table name to hold the temporary result of the query: R2 

Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship 
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Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: exo_id 

Any condition ? (y/n): y 
Group condition ? (y/n): y 



Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 1 

Your Selection is tablel where EXISTS table2 
Enter the temp table name related to EXISTS : R1 
Please enter your join condition 

between table ship_weapon and ** R1 ** : Rl.s_no=ship.s_no 

There are 3 records that match the query 
record id 1 exo_id:20l 
record id 2 exo_id:203 
record id 3 exo_id:204 

End group ? (y/n):n 

Retrieval Operations Menu 



0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 0 
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Your Selection is Simple Condition 

Enter attribute: picture 

Please enter your query description 

* noun phrases separate by commas and end with an exclamation mark 

* sentence end with a period. 

(end whole description with an empty line): 
nuclear submarine with many missiles! 

Searching 

Below is the result of the first 2 conditions in group 1 : 
record id 1 exo_id:204 

End group 7 (y/n): y 

Below is the result of group 1 : 
record id 1 exo_id:204 

End condition ? (y/n): n 

Retrieval Opjerations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table! where NOT EXISTS table2 

3. table 1 IN table2 

4. table 1 NOT IN table2 



Select your choice :: 0 

Your Selection is Simple Condition 

Enter attribute: type 

Enter condition : ="cniiser" 

There are 2 records that match the query; 
record id i exo_id:201 
record id 2 exo_id:202 

End group ? (y/n): y 

Below is the result of group 2: 
record id 1 exo_id;201 
record id 2 exo id: 202 
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End condition ? (y/n): y 



Below is the final result of all groups: 
record id 1 exo_id:201 
record id 2 exo_id:202 
record id 3 exo_id;204 

More selections at this level ? (y/n); y 

Enter table name to hold the temporary result of the query; T13 

Select the table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): ship 

Table ship 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

: exo_id 

Any condition ? (y/n): y 
Group condition ? (y/n); y 

Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. table 1 IN table2 

4. table 1 NOT IN table2 



Select your choice :: 0 

Enter attribute: yr_built 
Enter the condition; <1975 

There is 2 record that match the query 
record id 1 exo_id:100 
record id 2 exo_id:101 

End group ? :n 

Retrieval Operations Menu 
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0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 0 

Your Selection is Simple Condition 

Enter attribute: picture 

Please enter your query description 

* noun phrases separate by commas and end with an exclamation mark 

* sentence end with a period. 

(end whole description with an empty line): 
gas turbine powered ship! 

Searching 

There are two records that match the query: 
record id 1 exo_id:100 
record id 2 exo_id:101 

End group ? (y/n): y 

Below is the result of the first 2 conditions in group 1 : 
record id 1 exo_id:100 
record id 2 exo_id:101 

End group ? (y/n): y 

Below is the result of group 1 : 
record id 1 exo_id:100 
record id 2 exo_id:10l 

End condition ? (y/n): y 

Below is the final result of all groups: 
record id 1 exo_id:100 
record id 2 exo_id:101 

More selections at this level ? (y/n): n 
More levels ? (y/n): y 
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Enter table name to hold the temporary result of the query: RESULT 

Select die table(s) separate by comma <,> : (<?> for HELP!) 
SELECT TABLE(S): officer 

Table officer 

Select the attribute(s) separated by comma <,> : (<?> for HELP!) 
SELECT ATTRIBUTE(S) 

(Hit <ESC> for no attribute) 

; o_name, picture, voice 

Any condition ? (y/n): y 
Group condition ? (y/n): y 

Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. table 1 IN table2 

4. table 1 NOT IN table2 



Select your choice :: 3 
Your Selection is table 1 IN table2 

Enter the temp table name related to IN : R2 

Enter attribute for table officer for condition of IN : o_id 

Table *♦ R2 ** 

SELECT ATTRIBUTE (only one attribute!): cxo_id 
There is 3 record that match the query 

record id 1 o_name:Pongsuwan picture id is 1 voice id is 1 
record id 2 o_name:R. Stewart picture id is 2 voice id is 2 
record id 3 o_iiame:H, Aygtm picture id is 3 voice id is 3 

End group ? :n 
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Retrieval Operations Menu 



0. Simple Condition 

1. table 1 where EXISTS table2 

2. table 1 where NOT EXISTS table2 

3. table 1 IN tablc2 

4. tablel NOT IN table2 



Select your choice :: 0 

Enter attribute: salary 
Enter the condition: >6000 

There is 1 record that match the query: 

record id 1 o_name:Pongsuwan picture id is 1 voice id is 1 

Below is the result of the first two conditions in group 1: 
record id 1 o_name:Pongsuwan picture id is 1 voice id is 1 

End group 7 :y 

Below is the result of group 1: 

record id 1 o_name:Pongsuwan picture id is 1 voice id is 1 
End condition ? (y/n): n 

Retrieval Operations Menu 



0. Simple Condition 

1. tablel where EXISTS table2 

2. tablel where NOT EXISTS table2 

3. tablel IN table2 

4. tablel NOT IN table2 



Select your choice :: 2 

Your Selection is tablel where NOT EXISTS table2 
Enter the temp table name related to NOT EXISTS ; T13 
Please enter your join condition 

between table officer and ** T13 ** : officer.o_id=T13.exo_id 
Tliere are 5 records that match the query 
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record id 1 o_name:Y. Atila picture id is 8 voice id is 8 
record id 2 o_name:R. Stewart picture id is 2 voice id is 2 
record id 3 o_name:H. Aygun picture id is 3 voice id is 3 

record id 4 o_name:S. Pei picture id is 7 voice id is 7 

record id 5 o_name;A. Kara picture id is 9 voice id is 9 

End group 7 (y/n): y 

Below is the result of group 2: 

record id 1 o_name:Y. Atila picture id is 8 voice id is 8 
record id 2 o_name:R. Stewart picture id is 2 voice id is 2 
record id 3 o_name:H. Aygun picture id is 3 voice id is 3 

record id 4 o_name:S. Pei picture id is 7 voice id is 7 

record id 5 o_name;A. Kara picture id is 9 voice id is 9 



End condition ? (y/n): y 



Below is the final result of all groups: 

record id 1 o_name:Pongsuwan picture id is 1 voice id is 1 
record id 2 o_name:R. Stewart picture id is 2 voice id is 2 
record id 3 o_name:H. Aygun picture id is 3 voice id is 3 
record id 4 o_name:S. Pei picture id is 7 voice id is 7 
record id 5 o_name:Y. Atila picture id is 8 voice id is 8 
record id 6 o_name:A. Kara picture id is 9 voice id is 9 



Do you want to see any image data ? (yAi):y 

Which tuple’s image do you want to see? (enter record id) : 5 

Record no 5 filename :/titq)_mnt/n/virgo/work/mdbms/MDBMS/91 163.173948 
Show image .... 

The following photo has been found: 

Number: 5 
Description: 

»black hair, big nose, thin body, tall person with glasses! 

« 

Do you want to see the photo?: y 

♦♦♦ Thg photo is displayed on the screen *** 



Do you want to see more image data ? (Y/N): n 

Which tuple’s sound do you want to hear? (enter record id): 2 
Sound management 
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Record no 2 

Play the sound ? (y/n); y 
*** Sound is play-backed *** 

Do you want to hear more sound data ? (Y/N); n 
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APPENDIX B - PROGRAM CODE OF RETRIEVAL OPERATIONS 



% % % % 4c % % % 4( )(< % % % % % 



Title ; Retrieve.c 

Author : Aygun/ Stewart 

Date : August 1991 

History : Improvements on Retrieval operations to include complex 

query processing. Also contains the procedures for modify 
and deletion operations. An if clause provides the ability 
to switch options for retrieval, modify or deletion of data 
Description.This module implements the retrieval process in the 
Multimedia Database System. 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4t 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c>k 4c4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4nk 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



Export Interface : 

retrieve(RTRVE_MODE) : 

incorporates the retrieval process. The user is asked to 
enter the name of table(s) and attribute(s) he wants to 
retrieve. If he does not know the names of the tables or 
attributes, he can type "?" to list all the tables and 
attributes in the catalog. 
retrieve(DEL_MODE): 

incorporates the deletion process. The user is asked to 
enter table name and condition for deletion. 
retrieve(MOD_MODE): 

incorporates the modification process. The user is asked to 
enter table name and condition for modification. 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



Import Interface ; 

print_all_table() : Prints out the table catalog information on screen 
from InsertModule.c 



check_table_name(): Checks the table_name if it is duplicate 
get_media_name() : Get media table name by appending table_key at the 
end of att_name. 
from CreateModule.c 



yes_no_answer() ; Gets yes or no answer from the user. 
clr_scr() : Clears the screen. 

from UserInterface.c 
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pIay_sound(filename):Sends command from SUN to PC to play the SOUND * 
media file. 

from SoundModule.c 

3 |< :|t ak * ♦ * 3|e 3|e 3«c * ★ ★ * 3k ak 3k 3k 3k ♦ ♦ 3k a|c 3|< ★ 3k ★ ale 3k ★ 3|e * 3k 3k 3k ♦ ♦ 3k 3|< 3|< 3k jK * 3|e 3k 3|e 3|e ♦ 3k ♦ * * 3k ale a*e 3k 3k 3k ♦ 3|t 3k 3k * 3k + aje * :|t 3|e 



#include <stdio.h> 

#include <string.h> 

#include <pixrect/pixrect_hs.h> 
#include <sys/wait.h> 

#include <suntool/sunview.h> 
#include <suntool/canvas.h> 
#include "defines.h" 

#include "errors.h" 

#include "stnict.h" 

#include "Global Variables. h" 
#include <rpc/rpc.h> 

#include "plcall.h" 

#include "defines.h” 

#include "errors.h" 



char c; 

char temp_media_name[3]; 
char join_condition[100]; 

int look_more=0; /* use for loop the cursor */ 

stract select_att satt[10]; 

stract select_tab stab[10]; 

struct group group_count[10]; 

int o,p4c,numcon,numgroup,icond; 

STR_name tab[10]; 
char *all_condition; 
char condition[100]; 

/* Selection attribute */ 

/* Condition attribute */ 

STR_name att[10]; 

/* Each group of attribute */ 
int att g roup! 101; 

/* Condition type of each attribute 0 for formatted 1 for image 2 for sound*/ 
int contype[10]; 

/* Media attribute for description */ 

STR_name media_att[10]; 
int number_media; 

/* Condition for each attribute */ 
char con[10][100]; 

/* Attribute typ>e for each select */ 
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STR_naine atttype(10]; 

int cond,gcond,i_cond[ 10],m=0,x=0,y=0,n=0,o=0; 

char buffi 1 00] ,a,yes_no_answer(); 

char temp_table[20]; 

char temp_tablel[20]; 

char temp_table2[20]; 

char temp_table3[5]=( 

char temp_table4l5]={ ’h’,’u’,’s’,’i’,’5’ j ; 

char temp_table8(5]={ ’h’,’u’,’s’/o’,’l’ ); 

char temp_table9[5]=( ’h’,’u’,’s’,’o’,’2’}; 

char temp_tablel0[5]={’h’,’u’,’s’,’o’,’3’|; 

char temp_tablell[5]={ ’h’,’u’,’s’,’o’,’4’); 

char groupl[3]=|’g’,V,’r); 

char group2[3]=|’g’,V,’2’); 

char condition_for_nested[100]; 

char attribute_for_nested[20]; 

char joiii_for_nested[99]; 

int more_selections; 

int moie_levels; 

int aggregate_found; 

char tU5]=|’t’,’_’,V, 

char t2|5J=(’t’,’_’,V,’_’,’2’}; 
char t3l5]=rt’,’_’,V,’_’,’3’); 
char t4[5]=rt’,’_’,V,’_’,’4’}; 
char wrong_descip = TRUE; 
int act_media_count; 
int act_media_list[10]; 
int media_counter^; 
int formatted_flag; 
int image_flag; 
int sound_flag; 

3k 3k :|e 3(c 4c ^ 4c 3k 3k :|C :|c :(( 3|c 3k 4c ate :(e 3k 3k 3|< 3k 3ft 4c 3|c :(c :|c :fc 3k 4c 4c :|c :|c 4e 3(c :|e 3|( 3f( 3k 3k 3k * 3k 

Procedure initialize the array to empty 
Initialize all parameters used in the retrieve to null 

^4c 3|c 4c 4c 4c ak 3k 3k 3k 3k 3k 3k 4c 3k 3k 3k 3k 3k 3k 3k 3k 4c ak 3k 3k 3k 4c 4( 3k 3k 3k 3k 3k 4( 4( 3k 4( 4( 4( 3k 3k 3k 3k 4c 3k 3k 3k 4c 3k 4c 4( 4c ak 4c 4( 4( 3k 4c 4( 4c 4c 4c 4c 4c 4( 4( 3k 4c 4( 4c 4( 

void init() 



int i,j; 

icond=0; 

gcond=0; 

numgroup=0; 

numcon=0; 

for (i=0;i<10;i++) { 
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for (j=0;j < 13;j++) { 
satt[i].t_name|j] =0; 
satt[i].a_name[j] =0; 
stab[i].t_name[j] =0; 
att[i][j]=0; 
tab[i]|j]=0; 

) 

for (j=0;j<100;j++) { 
con[i]|j]=’0’; 

I 



^J|c 9|C % l|( % % ]<c 9|C >|C % 3|n|( lf( ifc 3(C 3|C 3|C ^ %%% %% %% % ifcifc % 



This procedure get the table name, attribute name of that table 
and then return the attribute type to the user 



^s|( 4c 4c 4( 4c ♦ sfc 3f( 4c 3|( 4c 3fc 3t( ♦ 4c 4( 4( 4c 9|( 4c 4c 4( 3|( 3|( 4c 94( ♦ 9|( 3|c s|( 4c ♦ 3|( 4c 4c s|( % 4c % 3|( ♦ 9|c 3|c :|c 4( 4c 4( 3|r 3|c 9(c 9|c 3|e 4( % 4( 



getatttype(tab_name,att_name,att_type) 
STR_name tab_name; 

STR_name att_name; 

STR_name att_type; 

I 



int ijjt, found, count; 
found = 0; 

for (i=0;i < table_count;i++) ( 

if (strcmp(table_array[i].table_name,tab_name)=0) | 
j = table_array[i].att_entry; 
coimt = table_airay[i].att_count; 
i = 1000; 



) 

) 

for ( k=0;k < coimt;k++) { 
if (strcmp(att_arrayUJ.att_name, att_name)==0) { 
strcpy(att_type,att_array(J].data_type); 

/* For test only */ 

printf("\n%s",att_array|j].att_name); 
printf("^%s'«",att_type); 
found = 1; 
k = 1000; 



) 

j = att_array|j].next_index; 

) 
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procedure to process the sound condition 

put the result in the media tale [number condition] for process later 



3|( 3|( :|e 3|( % 3|( % 3|( ^ 9|( 3|( 3|( 3|( ]|c % ]|c ^ 3|( %% j|( % 3|( :|e % 3|( % jk 9K %%%%%%%% 3|( %i(c>k 3K 



void process_icon3(query_phrase^umber) 
char query_phrase[DESCRLEN+l]; 
int number; 

I 

int id; 

char answer, repeat, yes_no_answer (),con_number4nedianum; 

int i, query_err, query_len, in_len, f_flag,found; 

struct pixrect *pr; 

colonnap_t cm; 

char descr[DESCRLEN+l]; 

int show_pid, wait_pid; 

union wait status; 

int imageno; 

printf ("VnEntering RETRIEVE ...Nn"); 

cm.type = RMT_NONE; 

cm .length = 0; 

cm.map[0] = NULL; 

cm.map[l] = NULL; 

cm.map[2] = NULL; 

/* this is absolutely necessary!!!! Otherwise pr_load_colormap might 
not allocate storage for the colormap, if the garbage found in 
the cm strucmre seems to make sense. The result, of course, is 
segmentation fault. This bug was very hard to find. */ 

I 

/* # line 193 "p2.sc" */ /* create table */ 

I 



nsqlnit((char *)0); 

nwtitedb( "create "); 

temp_media_name[0]=’p’ ; 

medianum=number+48 ; 

temp_media_name(l]=medianiun; 

temp_media_name[2]=0; 

printf('Nn%s" ,temp_media_name); 

IIwritedb(temp_media_name); 

nwritedbCT); 

nwritedb("s_id=i4)"); 

IIsqSync(0,(char *)0); 

) 

/* # line 194 "p2.sc" */ /* host code */ 
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printfC’The query description now is:'^>%s<<^nNn",query_phrase); 
printf ("Searchqing .....Nn"); 

/* exec sql declare cl cursor for 

select i_id, PIXRECT (i_image), COLORMAP (i_image), 

DESCRIPTION (Limage) 
from emp_imgl 

where SHOWS (i_image, query_phrase); 

The statement is deleted by the preprocessor. 

However, tlie output functions and the selection conditions 
associated with the cursor cl will be used later. 

The following declarations are generated: */ 

I 

int ISerrorcl; 

char ISerrmccl[ERRLEN+l]; 
char *ISfncl[FILENAMELEN + 1]; 
char *ISdescrcl[DESCRLEN + 1]; 
sqlca.sqlcode = 0; 

ISerrmccl[0] = ^0’; 

/* exec sql open cl; */ 

/♦ exec sql whenever not found go to closed; ♦/ 

/♦ translated by preprocessor into: */ 

if ( ISerrorcl = ISshows_open("imagc","i_imagc",ISfhcl,query_phrascdSerrmccl) 

) 

I 

sqlca.sqlcode = ISerrorcl; 
if ( sqlca.sqlcode == QUERY_WORD_ERR II 
sqlca.sqlcode = QUERY_STRUCrURE_ERR ) 
strcpy(sqlca.sqlerrm.sqlerrmc,ISerrmcc 1 ); 

) 

/* end of preprocessor output for open cl */ 
if ( Isqlca.sqlcode ) 

I 

f_flag = 0; 
for (;;) 

I 

/* exec sql fetch cl 
into :imageno, :pr, :cm, :dcscr; 

This is translated by the preprocessor into: */ 

if ( ISerrorcl = 
ISshows_fetch("image”, "Limage", ISfiicl,query_phrase,ISerrmccl) ) 
sqlca.sqlcode = ISerrorcl; 

/* printf("main.sc(ISfiicl): %sV, ISfiicl); */ 
if ( sqlca.sqlcode == NOT_FOUND ) 
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goto closed; 
f_flag = 1; 
if ( Isqlca.sqlcode ) 

I 

I* # line 653 "pi. sc" */ /* select */ 

strcpy (table_array[table_index].table_name, tab[number]); 
found = check_table_name(); 
table_cursor = table_entry; 
strcpy(media_name,att[nuniber]); 
get_medi a_name( ) ; 
printf("%s",media_name); 

{ 

Ilsqlnit(&sqlca); 

IIwritedb("retrieve(iniageno="); 

II writedb(media_name) ; 

IIwritedb(" .s_id ,ISdescrc 1 =" ) ; 

IIwritedb(media_name); 

IIwritedb(" .descrp)w"); 

IlwritedbCheie "); 

IIwritedb(niedia_name); 
nwritedb(".f_id="); 
nsetdom( 1 ,32,04Sfiic I ); 

IlwritedbC "); 

IIsqRinit(&sqlca); 
if (IlerrtestO == 0) { 
if (IlnextgetO != 0) { 
nretdom( 1 ,30,4,&imageno); 

IIretdom( 1 ,32,04Sdescrc 1 ); 

) /* Ilnextget */ 

IIsqFlush(&sqlca) ; 

) /* nerrtest ♦/ 

) 

/* # line 657 "pi. sc" */ /* host code */ 

if (Isqlca.sqlcode) 

{ 

ISerrorcl = ISdescription (ISfncl, ISdescrcl, descr); 
sqlca.sqlcode = ISerrorcl; 

) 

else 

sqlca.sqlcode = PROGRAM_ERR; 

) 

/* end of preprocessor output for fetch cl */ 
if (sqlca.sqlcode) 
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goto closed; 
id = imageno; 

I* # line 270 "p2.sc" ♦/ /♦ insert */ 

( 

Ilsqlnit((char *)0); 

IlwritedbC'append to "); 

nwritedb(temp_media_name); 

nwritedb("(s_id="); 

IIsetdom( 1 ,30,4,&id); 
nwritedbC )"); 

IIsqSync(3,(char *)0); 

I 

/* # line 272 "p2.sc" */ /* host code */ 

) /* end for loop of cursor cl */ 
closed: 

/* exec sql close cl; */ 

/* translated by the preprocessor into: */ 

sqlca.sqlcode = 

ISshows_close("image","i_image",ISfncl,query_phrase4Serrmcd); 

/* # line 693 "pi .sc" ♦/ /* host code */ 

) /♦ end of successful open cl; correct query description */ 

) /* end of preprocessor declaration block */ 

if ( sqlca.sqlcode = QUERY_WORD_ERR ) 

I 

printf("The system cannot understand the word 
»%s<<iSn",sqlca.sqlenm.sqlerrmc); 
query_err = 1; 

) 

if ( sqlca.sqlcode = QUERY_STRUC l'URE_ERR ) 

I 

printf("The system cannot interpret the 
phrase\n»Nn%s<<i^n",sqlca.sqlernn.sqlerrmc); 
query_err = 1; 

) 

if ( query_err ) 

{ 

) 

} 

if(!f_flag) 

printfC'There are no media matching that query description.Nn"); 
if ( sqlca.sqlcode ) 

printf("An error has occured while accessing the databaseNnX 
sql error code: %d\n", sqlca.sqlcode); 
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clr_scr(); 

} /* end of retrieve_photo () */ 

4c % % % % 4c 4c 4c 4c % 4c 4c % % % 4ci(cs(c 4c ♦ 4ci(c 4c4n(ci(n(n(( ^ 

procedure to process the linage condition put the result in the media tale [number 
condition] for process later. 

^4( 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4( 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 

void process_icon2(query_phrase, number) 
char query_phrase[DESCRLEN+l]; 
int number; 

{ 

int id; 

char answer, repeat, yes_no_answer (),con_number4nedianum; 

int i, queiy_err, query_len, in_len, f_flag,found; 

struct pixrect ’•'pr; 

colormap_t cm; 

char descr[DESCRLEN+l]; 

int show_pid, wait_pid; 

union wait status; 

int imageno; 

printf C^nEntering RETRIEVE ...Nn"); 
cm.type = RMT_NONE; 
cm.length = 0; 
cm.map[0] = NULL; 
cm.map[l] = NULL; 
cm.map[2] = NULL; 

/* this is absolutely necessary!!!! Otherwise pr_load_colormap might 
not allocate storage for the coloimap, if the garbage found in 
the cm structure seems to make sense. The result, of course, is 
segmentation fault. This bug was very hard to find. */ 

{ 

/* # line 193 "p2.sc" */ /* create table */ 

I 

nsqlnit((char ’")0); 

Uwritedb("create "); 
temp_media_name[0]=’p’ ; 
medianum=number+48 ; 
temp_media_name[l ]=medianum; 
temp_media_name[2]=0; 
printf("\n%s" ,temp_media_name); 

Uwritedb(temp_media_name); 

IIwritedbCT); 

nwritedbri_id=i4)"); 

IIsqSync(0,(char *)0); 
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I* # line 194 "p2.sc" */ /♦ host code */ 

printf("The query description now is:Nn»%s<<^vn\n",query_phrase); 
printf ("Searching .....Nn"); 

/* exec sql declare cl cursor for 

select i_id, PIXREdT (i_image), COLORMAP (i_image), 

DESCRIPTION (Limage) 
from emp_imgl 

where SHOWS (i_image, query_phrase); 

The statement is deleted by the preprocessor. 

However, the output functions and the selection conditions 
associated with the cursor cl will be used later. 

The following declarations are generated: */ 

I 

int ISerrorcl; 

char ISernnccl[ERRLEN+l]; 
char lSfncl[FILENAMELEN + 1]; 
char ISdescrcUDESCRLEN + 1]; 
sqlca.sqlcode = 0; 

ISenmccl[0] = ’\0’; 

/* exec sql open cl; */ 

/* exec sql whenever not found go to closed; */ 

/♦ translated by preprocessor into: */ 

if ( ISerrorcl = ISshows_opcn("imagc","i_image",ISfncl,query_phrascJ[Scrrmccl) 

) 

( 

sqlca.sqlcode = ISerrorcl; 
if ( sqlca.sqlcode = QUERY_WORD_ERR II 
sqlca.sqlcode = QUERY_STRUCTURE_ERR ) 
strcpy(sqlca.sqlerrm.sqlerrmc,ISerrmccl); 

) 

/* end of preprocessor output for open cl */ 
if ( ! sqlca.sqlcode ) 

{ 

f_flag = 0; 
for (;;) 

( 

/* exec sql fetch cl 
into :imageno, ;pr, ;cm, :descr; 

This is translated by the preprocessor into: */ 

if ( ISerrorcl = 
lSshows_fetch("image","i_image"4Sfiicl ,query_phrase,ISerrmccl ) ) 
sqlca.sqlcode = ISerrorcl; 
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/* printf("main.scaSfncl): %sNn", ISfiicl); ♦/ 
if ( sqlca.sqlcode == NOT_FOUND ) 

{ 

printf("main.sc; ISshows_fetch liefert NOT_FOUND"); 
goto closed; 

} 

f_flag = 1; 

if ( !sqlca.sqlcode ) 

I 

/* # line 653 "pi. sc" */ /* select */ 

strcpy (table_array[table_index].table_name, tab[numbcr]); 
found = check_table_name(); 
table_cursor - table_entry; 
strcpy (media_name ,att [number] ); 
get_media_name(); 
printf("%s" ,media_name) ; 

( 

Ilsqlnit(&sqlca); 

Uwritedb("retrieve(imageno="); 

liwritedb(media_name); 

nwritedb(".i_id,ISdescrcl="); 

Uwritedb(media_name); 

DwritedbC' .descrp)w"); 

UwritedbC'here "); 

Uwritedb(media_name); 

nwritedb(".f_id="); 

Usetdom( 1 ,32,0dSfiicl ); 

Uwritedb(" "); 

IIsqRinit(&sqlca); 
if (UerrtestO == 0) { 
if (HnextgetO != 0) ( 

Uretdom( 1 ,30,4,&imageno); 

IIretdom( 1 ,32,0JlSdescrcl); 

) /* Ilnextget */ 

IlsqFlush(<& sqlca); 

} /* nerrtest */ 

} 

/♦ # line 657 "pi. sc" */ /* host code ♦/ 

if (! sqlca.sqlcode) 

{ 

if (!(ISerrorcl = ISpixrect (ISfhcl, ISdescrcl, &pr))) 
if (!(ISerrorcl = IScolormap (ISfiicl, ISdescrcl, &cm))) 
ISerrorcl = ISdescription (ISfncl, ISdescrcl, descr); 
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sqlca.sqlcode = ISerrorcl; 

} 

else 

sqlca.sqlcode = PROGRAM_ERR; 

} 

/* end of preprocessor output for fetch cl */ 
if (sqlca.sqlcode) 
goto closed; 
id = imageno; 

I* # line 270 "p2.sc” */ /* insert */ 

I 

Ilsqlnit((char ■'')0); 

II writedb( "append to "); 

IIwritedb(temp_media_name); 

Uwritedb("(i_id="); 

IIsetdom( 1 ,30,4,&id); 
nwritedbC’ )"); 

UsqSync(3,(char *)0); 

} 

/* # line 272 "p2.sc" */ /* host code */ 

} /* end for loop of cursor cl ’"/ 
closed: 

/* exec sql close cl; */ 

/♦ translated by the preprocessor into: */ 

sqlca.sqlcode 

ISshows_close("image","i_image",ISfncl,query_phrase,ISerrmcd); 

/* # line 693 "pi. sc" */ /* host code */ 

) /* end of successful open cl; correct query description */ 

) /* end of preprocessor declaration block ’"/ 

if ( sqlca.sqlcode = QUERY_WORD_ERR ) 

I 

printf("The system cannot understand the 
»%s<«^«",sqlca.sqlerrm.sqlerrmc); 
query_err = 1; 

) 

if ( sqlca.sqlcode = QUERY_STRUCTURE_ERR ) 

I 

printf("The system cannot interpre 
phraseNn»Nn%s<<^n" ,sqlca.sqlerrm. sqlerrmc ); 
query_err = 1; 

I 

if ( query_err ) 

I 



word 



t h e 
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) 



if( !f_flag) 

printfC'There are no media matching that query description.Nn"); 
if ( sqlca.sqlcode ) 

printfC'An error has occured while accessing the databaseV; 
sql eaor code: %dsn", sqlca.sqlcode); 
clr_scr(); 

) /* end of retrieve_photo () */ 



This procedure search through the media relation and get the 
file name that match with the result table and send to the 
present photo procedure 






a|(3|(3k3|(a|(a|(3|(4t4M|<3kakaKr(c 



aKakakaK3kaka|(3|e4(ak3|c4c3(cakaKaKa|e3|(4(%3t(3k4(*%4(3tt4taK3|(%#r4oK3kak4(3|(aKr((4(aKakaK%rt(4tak3k3|(rf( j 



display_photo (imageno,tupleno,temp_table, image_id) 

int imageno; 

int tupleno; 

char temp_table[20]; 

int image_id; 

I 

int desired_tupleno; 
char image_value[20]; 
char answer, repeat, yes_no_answer (); 
char query_phrase[DESCRLEN+l], 
in_phrase [DESCRLEN+ 1 ] ; 

int i=0,j=0, k, c, pid, quety_err, query_len, in_len, f_flag4ook_more=0; 
struct pbcrect *pr; 
colormap_t cm; 

char ISfhl[FILENAMELEN+l]; 
char descr[DESCRLEN+l]; 
int show_pid, wait_pid; 
int ISerror; 

STR_path file_name; 
char ISdescrl[DESCRLEN+l]; 
cm.type = RMT_NONE; 
cm.length = 0; 
cm.map[0] = NULL; 
cm.map[l] = NULL; 
cm.map[2] = NULL; 
desired_tupleno=tupleno; 

/* this is absolutely necessary!!!! Otherwise pr_load_colormap might 
not allocate storage for the colormap, if the garbage found in 
the cm structure seems to make sense. The result, of course, is 
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segmentation fault. This bug was very hard to find. */ 

/* exec sql select PIXRECT (i_image), COLORMAP (i_image), 
DESCRIPTION (i_image) 
into :pr, :cm, :descr 
from image 

where i_id = :imageno; 

This Image-SQL statement is transformed into the following 
sequence of statements by the preprocessor: 

*1 

c=l; 

inttostr(image_id, image_value); 

I 

if (IIcsrOpen((char *) 0 ,"cursor_outputl","db", 04 nedia_name) != 0) { 
IIwritedb( "retrieve(ISfn 1 =”); 

IIwritedb(media_name); 

IlwritedbC’."); 

nwritedb('’f_idJSdescrl="); 

IIwritedb(media_name); 

IlwritedbC’.descrp"); 

IlwritedbC’) where "); 

IIwritedb(media_name); 

nwritedb(".i_id="); 

IIwritedb(image_value); 

IIcsrQuery ((char *)0); 

) 



while (look_more==0) | 

if (IIcsrFetch((char *)0, "cursor_outputl","db") != 0) { 
IIcsrRet( 1 ,32,04Sfhl ); 

UcsrRet( 1 ,32,04Sdescrl ); 
for (i=0;i<MAX_PATH+l;i++) { 
if (ISfnI[i]=32) I 
file_name[i]=0; 

) 

else { 

file_name[i]=ISfh 1 [i] ; 

} 

) 

printf("\nRecord no %d filename :%s:",j+l, ISfnl); 
if ((img file=fopen(file,_name."r"))=NULL) 

{ 

printf("^%s", file_name); 
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printf("\nThe file cannot be op>ened ! !Nn"); 
putchar(’\[)07’); 

) 

else ( 

pr=pr_load(img_file, &cm); 
if (pi^=NULL) i 

printfC^nThe file does not contain proper image"); 
putchaK’'^07’); 

) 

else { 

printf("\nShow image 
present_photo(j+l ,pr,&cm,TSdescrl ); 
ncsrClose((char *)0,"cursor_outputl","db"); 

) 

) 

fclose(img_file); 

) 

IIcsrEFetch((char *)0); 

j++; 

if (j=c) I 

look_more = 1; 

); 

) 

/*ncsrClose((char *)0,"cursor_outputl","db");*/ 

) 

) 

:(c sfc 3|( 3(( 3k ♦ ♦ ♦ a(c 3k ♦ ak ♦ 9(( 3|c 3(c ak ♦ ak ak ak % 3(c ♦ ♦ 3k ♦ a(c 3k 3k ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ^ 



This procedure search through the media relation and get the 
file name that match with tlie result table and send to the 
play sound procedure 



display_sound (soimdno,tupleno,temp_table, sound_id) 

int soundno; 

int tupleno; 

char temp_table[20J; 

int sound_id; 

I 

char sound_value[20]; 
int desired_tupleno; 

char Answer,answer, repeat, yes_no_answer(); 
char query_phrase[DESCRLEN+l], 
in_phrase[DESCRLEN+ 1 ]; 

int i=0,j=0, k, c, pid, query_err, query_len, in_len, f_flag4ook_more=0; 
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int show_pid, wait_pid; 
int ISerror; 

STR_path file_name; 

char ISfhl[HLENAMELEN+l]; 

char ISdescrl[DESCRLEN+l]; 

desired_tupleno=tupleno; 

c=l; 

inttosti(sound_id, sound_value); 

if (IIcsrOpen((char *)0,"cursor_outputl","db4",0^edia_name) != 0) { 
IIwritedb("retrieve(ISfhl="); 

IIwritedb(media_name); 

nwritedbC'."); 

IIwritedb("f_id,ISdescrl="); 

II writedb(media_namc); 

IIwritedb( " .descrp" ); 

Uwritedb(")where "); 

IIwritedb(media_name); 

nwritedb(".s_id="); 

nwritedb(sound_value); 

IIcsrQuery ((char *)0); 

) /♦ Ilcsropen */ 
while (look_more==0) ( 

if (IIcsrFetch((char *)0, "cursor_outputl","db4") 1= 0) | 
ncsrRet(l,32,0,ISfnl); 

IIcsrRet(l ,32,0,ISdescrl ); 
for (i=0;i<MAX_PATH+l;i++) { 
if (ISfhl[i]=32) { 
file_name[i]=0; 

) 

else { 

file_name[i]=ISfiil [i]; 

) 

I 

printf("\nRecord no %d ”,j+l); 
printf("NnPlay the sound ? (y/n) :: "); 
if (yes_no_answer()=’y’){ 
play_sound(£ile_name); 
ncsrClose((char * X), "cursor_output 1 " ,"db4" ); 

) 

IIcsrEFetch((char *)0); 
j++; 

if (J=c) I 
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look_more = 1; 

I 

I /* nCSRFECCH ♦/ 
) /* end wliile */ 



) /* end of display_sound () */ 



This procedure get the query description for the media attribute 
from the user phrase by phrase 

char process_icon() 

{ 



char answer, repeat, yes_no_answer (); 
char query_phrase[DESCRLEN+l], 
in_phrase[DESCRLEN+l]; 
int i, query_err, query_len, in_len, f_flag; 
char descr[DESCRLEN+lJ; 
int show_pid, wait_pid; 
int imageno; 
icond = 1; 
do 



query_err = 0; 
query_len = 0; 
query_phrase[0] = ’VO’; 

printf("VnPlease enter your query descriptionVnX 

* noun phrases separate by commas and end with an exclamation maikNnX 

* sentence end with a period.XiX 

(end whole description with an empty line):Vn"); 
do /* until query_phrase input */ 

I 

i = 0; 

while ( (in_phrase[i++] = getchar()) != *Vn’ && i < 127 ); 
if ( in_phrase[i-l] != ’Vn’ ) 

I 

in_phrase[i-l] = Xn’; 

printf ("The phrase is too long, it will be shortenedSn"); 
while ( getchar () != "Vn’ ); 

} /♦ End if */ 
in_phrase[i] = ’XO’; 
if ( ( in_len = i ) > 1 ) 

{ 

if ( query_len + in_len < DESCRLEN ) 
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I 

strcat(query_phrase,in_phrase); 
query_len = queiy_len + in_len; 

} /* End if */ 
else 

I 

printfC'The last phrase extended beyond the maximum \ 
description length, Nnit will be ignored'n"); 
break; 

) /* End else */ 

) /* End if */ 
if ( !query_len ) 

printfC'VnAn empty string is not allowed as a query desciiption.^X 
Please type at least a single word:\u"); 

) /* End do */ 

whUe ( ( in_len > 1 ) II lqueiy_len ); /* end queiy_phrase input */ 
printfC’The query description now is:\l»%s«^n\n",query_phrase); 

) while (query_err); 
strcpy(con[numcon] ,query_phrase); 
if (contype[numcon]=l) { 
process_icon2 (query_phrase,numcon); 

} 

if (contype[numcon]=2) ( 
process_icon3 (query^hrase^iumcon); 

) 



) 

^ ^ 3|( ]|C 9|( 9|C J|( 3|( ]|( 9|( ]|( 4c ]|( 9|( % 3|( 9|( 9|( 9|( ]|( 3|( 3|C 3|C ](c 3|C ^ 3|( 3|( 3(C ^ ^ 

This procedure handles if there are more than one conditions in the query. 

4c 4c 4c 4c 4c 4c 4c 4( 3|c 4c 4c 4( 9(< % % ♦ % % ♦ % % % % ♦ % % ♦ % % % ♦ % % % ♦ % ♦ % % % 9|( s(( * 4c 4c 4c ^ 



nested_gcondition(choice ,temp_table 1 ,temp_table2,temp_table) 

char choice; 

char temp_tablel[20]; 

char temp_table2[20]; 

char temp_table[20]; 

{ 

int group_number=0; 
int nested_counter=0; 
int k,l; 

int endgroup,i,more,found=FALSE; 
char ans,ans2; 
endgroup = 0; 
more = 0; 
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nuincon=0; 

numgroup=0; 

choice=utility_menu(choice,temp_tabIel,temp_table2,temp_tabIe); 

if (choice==’0’)i 
cond=l; 
gcond=0; 

) 

while (more != 1) { 
while (endgroup != 1) { 
for (i=0;i < att_index;i++) 



if (choice=’0’){ 
if (m > 1 ) { 

printf("\nEnter table name "); 
gets(tab[numcon]); 

strqpy (table_array[table_index].table_name, tab[numcon]); 

) 

I 

if (m=l) { 

strcpy (tab[numcon], stab[0].t_name); 

I 

if (choice=’0’)| 
cond=l; 
gcond=0; 

printfC'SnEnter attribute "); 
gets(att[numcon]); 

getatttype(tab[numcon], att[numcon],atttype[numcon]); 
if (strcmp(atttype[numcon] ,"image”)=0) 

contype[numcon]= 1 ; 
process_icon(); 

) 

else if (strcmp(atttype[numcon],"sound")==0) 

{ 

contype[numcon]=2; 

process_icon(); 

} 

else { 

printfC'Enter the condition Nn"); 
gets(con[numcon] ); 
contype [numcon]=0; 
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} 

)/*end if choice=0 */ 

nested_counter=nested_counter+ 1 ; 
if ((nested_counter%2)==l){ 

if (choice=’0’)l 

cond=l; 

gcond=0; 

ql_retrieve(temp_table8 ) ; 

/* ql_printdata(temp_table8);*/ 

cond=0; 
numcon=0; 
numgroup=0; 
init_buffer(tab, 1 0); 
init_buffer(att, 10); 
for (k=0; k<10; k++){ 
for (1=0; 1<100; !++){ 
con[k][l]=’0’; 

) 

) 

) 

if (choice=’l’){ 

templ_exists_temp2(temp_tablel, temp_table2, temp_table8); 

ql_printdata(temp_tablc8); 

init_buffer(join_for_nested,99); 

} 

if (choice=’2’){ 

templ_not_exists_temp2(tcmp_tablel, temp_tablc2, tcmp_table8); 

ql_printdata(temp_table8 ); 

init_buffer(join_for_nested,99); 

) 

if (choice=’3’){ 

templ_in_temp2(temp_tablel, temp_table2, temp_table8); 
ql_printdata(temp_table8); 
init_buffer(condition_for_nested, 1 00); 
init_buffer(attribute_for_nested,20); 

) 

if (choice=’4’){ 

templ_not_in_tenrip2(teinp_tablel, temp_table2, temp_table8); 
ql_printdata(temp_table8 ); 
init_buffer(condition_for_nested,100); 
init_buffer(attribute_for_nested,20); 
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)/* end if nested_counter%2=l */ 



if ((nested_counter%2)==0){ 
if (choice=’0’){ 
cond=l; 
gcond=0; 

ql_retrieve(temp_table9); 

/* ql_printdata(tenip_table9);*/ 

cond=0; 
numcon=0; 
numgroup=0; 
init_buffer(tab, 1 0); 
init_buffer(att,10); 
for (k=0; k<10; k++){ 
for (1=0; KlOO; !++){ 
con[k]a]=’0’; 

) 

} 

) 

if (choice=’r)l 

templ_exists_temp2(tcmp_tablel, temp_table2, temp_table9); 

ql_printdata(temp_table9); 

init_buffer(join_for_nested,99); 

} 

if (choice=’2’){ 

templ_not_exists_temp2(temp_tablcl, temp_table2, temp_table9); 

ql_printdata(temp_table9); 

init_buffer(join_for_nested,99); 

} 

if (choice=’3’){ 

templ_in_temp2(temp_tablel, temp_tablc2, temp_table9); 
ql_printdata(temp_table9) ; 
init_buffer(condition_for_nested, 1 00); 
init_buffer(attribute_for_nested,20); 

) 

if (choice=’4’){ 

tenipl_not_in_temp2(temp_tabIel, temp_table2, temp_table9); 
ql_printdata(temp_table9); 
init_buffer(condition_for_nested, 1 00); 
init_buffer(attribute_for_nested,20); 
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)/* end if nested_counter%2=0 */ 



if (nested_counter=2)( 

/* printf("NnBelow is the result of the first %d conditions in group %d 

nested_counter, group_number+l);*/ 

/* printf("\nBefore intersection.. .nested_counter->%d"^ested_counter);*/ 

inteisect_tables(temp_table8,temp_table9,temp_tablel0); 

/* ql_printdata(temp_tablelO);*/ 

drop_table(temp_table8); 
drop_table(temp_table9); 

) 

if (nested_countei>2) I 
if ((nested_counter%2)==l){ 

/* printf("NnBelow is the result of the first %d conditions in group %d 

nested_counter, group_number+l);*/ 

/* printf("\nBefore intersection.. .nested_counter->%d" 4 iested_counter);*/ 

intersect_tables(temp_table 10,temp_tablc8,temp_table 11); 

/* ql_printdata(temp_table 11);*/ 

drop_table(temp_table8); 
drop_table(temp_table 10); 

) 

if ((nested_counter%2)==0)( 

/* printf("\nBelow is the result of the first %d conditions in group %d 

nested_counter, group_number+l);*/ 

/* printf("\nBefore intersection...nested_counter->%d",nested_counter);*/ 

intersect_tables(temp_table 1 1 ,temp_table9,temp_table 10); 

/* ql_printdata(temp_tablelO);*/ 

drop_table(temp_table 11); 
drop_table(temp_table9); 

) 

)/* end if nested_counter>2 */ 

/* )*/ /* end if ’l’<=choice=<’4’ deneme */ 

printfCNnEnd group ?"); 
ans=yes_no_answer() ; 
if ((ans==121)ll(ans=89)) { 
group_number=group_number+ 1 ; 
if (group_number=l){ 
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if (nested_counter=l){ 
union_tables_for_nested(temp_table8, group 1 ); 

/* printf("ViBelow is the result of group %d :",group_number); 

ql_printdata(groupl );*/ 
drop_table(temp_table8 ) ; 

} 

if (nested_counter>l){ 
if ((nested_counter%2)==0)| 
union_tables_for_nested(temp_tablelO, groupl ); 

/* printf("\nBelow is the result of group %d :",group_number); 

ql_printdata(groupl );*/ 
drop_table( temp_table 10); 

) 

if ((nested_counter%2)==l){ 
union_tables_for_nested(temp_table 1 1 , group 1 ); 

/* printf("NnBelow is the result of group %d :",group_number); 

ql_printdata(group 1 );*/ 
drop_table(temp_tablel 1); 

I 

)/* end if nested_counter > I */ 

}/*end if group_numbei^l */ 

if (group_number=2) { 

if (nested_counter=l){ 
union_tables_for_nested(temp_table8, group2); 

/* printf("NnBelow is the result of group %d :",group_number); 

ql_printdata(group2);*/ 
drop_table(temp_table8 ) ; 

I 

if (nested_counter>l){ 
if ((nested_counter%2)==0){ 
union_tables_for_nested(temp_table 1 0, group2); 

/* printf("\nBelow is the result of group %d :’’,group_number); 

ql_printdata(group2);*/ 
drop_table(temp_table 10); 

} 

if ((nested_counter%2)==l)( 
union_tables_for_nested(temp_tablel 1, group2); 

/* printf("\nBelow is the result of group %d :",group_number); 

ql_printdata(group2);*/ 
drop_table(temp_tablel 1); 

} 

}/* end if nested_counter>l */ 
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union_tables(groupl, group2); 

/* printf("\nBelow is the result of the first %d groups ",group_number); 

qI_printdata(group2) ; */ 
drop_table(group 1 ); 

)/*end if group_number=2 */ 

if (group_number>2){ 
if (nested_counter=l){ 
union_tables_for_nested(temp_table8, groupl ); 

/* printf("\nBelow is the result of group %d :",group_number); 

ql_printdata(groupl );*/ 
drop_table(temp_table8); 

) 

if (nested_counter>l){ 
if ((nested_counter%2)==0)| 
union_tables_for_nested(temp_table 1 0, group 1 ); 

/* printf("^nBelow is the result of group %d :",group_number); 

ql_printdata(groupl );*/ 
drop_table(temp_table 1 0); 

) 

if ((nested_counter%2)==l){ 
union_tables_for_nested(temp_table 1 1 , groupl ); 

/* printf(”\nBelow is the result of group %d ;",group_number); 

ql_printdat a(group 1 ) ; */ 
drop_table(temp_table 11); 

) 

)/* end if nested_counter>l */ 
union_tables(group 1 ,group2); 

/* printfC^nBelow is the result of the first %d groups ",group_number); 

ql_printdata(group2);*/ 
drop_table(group 1 ) ; 

)/* end if group_number >2*1 

nested_counter=0; 

endgroup=l; 

/* printf("\nGroup %d"4iumgroup); 
printf("\nCondition %d",numcon);*/ 
i=600; 

)/* end if ans= YES to end group ? */ 

if ((ans==110)ll(ans=78)) | 

choice=utility_nienu(choice,temp_table 1 ,temp_taWe2,temp_table); 

) 

) /* End for */ 

) /* END WHILE */ 
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printf(’VEnd condition ?"); 
ans=yes_no_answer() ; 
if ((ans==121)ll(ans=89)) 

{ 

if (group_number=l)( 
union_tables_for_nested(groupl , temp_table); 
drop_table(group 1 ); 
printf("\nBelow is the final result 
ql_printdata(temp_table); 

) 

if (group_number>l)| 

union_tables_for_nested(group2, temp_table); 
drop_table(group2) ; 
printf("ViBelow is the final result 
ql_printdata(temp_table); 

) 

/* if (choice=’0’) 

group_count[numgroup].endgroup = numcon-1;*/ 
endgroup=l; 
more = 1; 
i=0; 

)/* if ans=YES to end condition? 
else ( 
more=0; 
endgroup=0; 
i=0; 

nested_counter=0; 

choice=utility_menu(choice,temp_tablel,temp_table2,temp_table); 
/* group_count[numgroup].endgroup = numcon-1; 
numgroup=numgroup+ 1 ; 
group_count [numgroup] .begingroup=numcon; */ 

)/*end else*/ 



) /* End more */ 
group_number=0; 






This function handles if there is only one condition in the query. 



nested_processcondition(choice,teir^_tablel,temp_table2,temp_table) 

char choice; 

char temp_tablel[20]; 



139 



char temp_table2[20]; 
char temp_table[20]; 



char ans2,a; 
int ij; 
gcond=0; 

printf("NnGroup condition ? (y/n) "); 

ans2=yes_no_answer(); 

if ((ans2==121)ll(ans2=89)) 

{ 

nested_gcondition(choice,temp_tablcl,temp_tablc2,temp_table); 

) 

else 



I 



gcond=0; 

choice=utility_menu(choice,temp_table 1 ,temp_table2,temp_table); 
if (choice == ’0’){ 
cond=l; 
if (m > 1 ) { 

printf("SnEnter table name "); 
gets(tab[0]); 

) 

if (m=l) { 

strcpy (tab[0], stab[0].t_name); 

) 

printfC'NnEnter attribute name "); 
gets(att[0]); 

printf("Nn%s %s %s", tab[0], att[0], atttype[0]); 
getatttype(tab[0],att[0],atttype[0]); 
if (strcmp(atttype[0],'’image")=0) 

I 

contype[0]=l; 

process_icon(); 

) 

else if (strcmp(atttype[0],"sound")==0) 

( 

contype[0]=2; 

process_icon(); 

) 

else { 

printfC'Enter the condition \n"); 
gets(con[0J); 
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contype[0]=0; 



) 

) 

else 

cond=0; 

if (choice=’0’) 
ql_retrieve(teinp_table); 
if (choice=’l’) 

templ_exists_temp2(temp_tablel, temp_table2, temp_table); 
if (choice=’2’) 

templ_not_exists_temp2(temp_tablel, temp_table2, temp_table); 
if (choice=’3’) 

templ_in_temp2(temp_tablel, temp_table2, temp_table); 
if (choice=’4’) 

templ_not_in_temp2(temp_tablel, temp_table2, temp_table); 
ql_printdata(temp_table); 



I 



This procedure print tlie attribute name of the table assign to 



void p_att(tab_name) 
STR_name tab_name; 
{ 



int i,j; 

for (i=0;i<= table_count;i++) | 
if (strcmp(table_array[i].table_name,tab_name)=0) { 

X = i; 

y = table_array[i].att_entiy; 

printf("\nTable Name: %sNn",table_array[i].table_name); /* print table name */ 
printf( "\n* * Attribute** * * Data Typ>e* * ") ; 
while (y != -1) { 

printf("\n%13s %s",att_array[y].att_name,att_arTay[y].data_type); 
y = att_array[y].next_index; 

I /* End while y!=-l */ 

if (y=-i) { 

printfC'^n"); 

i=500; 

} /* Exit loop */ 

I /* End if */ 

I /* End for*/ 
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) 

^ %% J(< % s|c %](( l(< 3|< 3|< %%% 3|c 3|< %% S|< %%%%% l|c 9(< %%%% 3(o(c ](< 3(< % ^ 

Generate the result table for retrieval process 
This procedure process the query and condition 
By using the select_array and condition_array 
also group_array 

ql_retrieve(temp_table) 
char temp_table[20]; 

{ 



int d,e/; 
int i jjk,l; 

char gmum,niedianum,operator[4]; 
i=0; /* set up index to 0 */ 

/* Below is the embeded C code for the SQL C for INGRES */ 
/* This is equivalent to the SQL query */ 

/* exec sql select (varl, var2, ...) 
from (tablel, table2,...) 

where (conditionl and/or condition2 and/or ...); 

*/ 

k=0; 

i=0; 

j=0; 

1 = 0 ; 

r=0; 



nsqlnit((char *)0); 
IlwritedbC’retrieve into "); 
IIwritedb(temp_table); 

nwritedbCT); 

for (i=0;i<n-l;i++) { 
IIwritedb(satt[i] .t_name); 
nwritedbC’."); 

IIwritedb(satt [i] .a_name ); 
nwritedbr,"); 

) /* end for */ 
nwritedb(satt[i] .t_name); 
nwritedbC'.’’); 
IIwtitedb(satt[i] .a_name); 
nwritedbC’)"); 
if (cond==0) { 
if (m>l) ( 

nwritedb( ’’ where(" ); 
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nwritedb(join_condition); 

Uwritcdb(")"); 

} 

) 

if (cond=l) { 

IIwiitedb("wheie("); 
if (m>l) { 

Uwritedb("("); 

IIwritedb(joiii_condition); 

nwritedbC’)"); 

IlwritedbC and "); 

) 

if (gcond==0) { 

if (contype[0]=0) { 
Uwritedb(tab[0]); 
UwritedbC'."); 
nwritedb(att[0]); 
llwritedb(con[0]); 

} /♦ end if ♦/ 
if (contype[0]=l) { 
nwritedb(tab[0]); 
Uwritedb("."); 
Uwritedb(att[0]); 
nwritedb("="); 
temp_media_name[0]= ’p ’ ; 
medianum=0+48 ; 
temp_media_name[l]=medianum; 
temp_media_name[2]=0; 
IIwritedb(tenip_niedia_name) ; 
nwritedbC'."); 
nwritedb("i_id"); 

) 

if (contype[0]=2) { 
llwritedb(tab[0]); 
nwritedbC’."); 
nwritedb(att[0]); 
nwritedb("="); 
temp_media_name[0]=’p’ ; 
medianum=0448 ; 
temp_media_name[ 1 ]=medianum; 
temp_media_name[2]=0; 
nwritedb(temp_media_name); 
nwritedbC’."); 
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IIwritedb("s_id"); 

) 

) /* end if no group */ 
UwritedbC')"); 

) /* end if con=l */ 



% 4c ](c ]f( ]fc # ]f( 3|( ^ ^ ^ Jf( ^ ^ ;(c ^ jfcic :i|c a|c ^ ^ ^ ^ If( J|( ]f( |(( % % ](c % j(( ^ ]|c 



This function takes two temp tables and unions them and returns 
the result to the calling function 

4c4(4c4(4c*4c4c4c4(3|c4c4c3|c4(4(4c4(3|c4c4(*4(4r3K4r**4(4r#4(^3|c4e4(4(4c4(4(3|c4(4c4c4(4t4(4c4c4(4r4(*^4r3K4(**4rifc4(4(4c4(^ 

union_tables(temp_table 1 , temp_table) 
char temp_table 1 [20] ; 
char temp_table[20j; 

{ 



int c=0j=0,k=0, 1=0, temp, count; 

/*char*/ STR_name char_value[21]; 
char file_name[20J,a; 

int integer_value,media_value,found,medial_value; 
float real_value; 
int i=0,select=0; 
int g=0; 

/*printf(’NnNow we are in union_tables");*/ 

/♦ # line 3169 "db.sc" */ /* select */ 

I 

nsqlnit((char *)0); 

IIwritedb("retrieve(c=(count(’'); 

IIwritedb(temp_tablel ); 
nwritedbC’."); 

IIwritedb(satt[0] .a_name); 

UwritedbC')))"); 

UsqRinit((char *)0); 
if (UerrtestO == 0) { 
if (UnextgetO != 0) { 

Uretdom( 1 ,30,4 ,&c); 

) /* Unextget */ 

UsqFlush((char *)0); 

) /♦ Uerrtest */ 

) 

1 = 0 ; 

/*printf("ViThere are %d records in temp_table %s",c, temp_tablel);*/ 
/* # line 3171 "db.sc" */ /♦ host code */ 
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if (IIcsrOpen((char *)0,"cursor_output","dbr',0,temp_tablel) != 0) ( 
nwritedb("retrieve("); 
for (select=0;select<n-l;select++) | 

IIwritedb(satt[select] .a_name); 

Uwritedb("="); 

IIwritedb(temp_table 1 ); 

UwritedbC'."); 

nwritedb(satt[select] .a_name); 
nwritedbC',"); 

) 

IIwritedb(satt [select] . a_name); 

Uwritedb("="); 

IIwritedb(temp_table 1 ); 
nwritedbC'."); 

nwritedb(satt[select].a_name); 

nwritedbC’)"); 

ncsrQuery((char *)0); 

) /* ncsrOpen */ 

/* # line 3169 "db.sc" */ /* select */ 

I 

nsqlnit((char *)0); 

Uwritedb("retrieve(g=(count("); 

nwritedb(temp_table); 

UwritedbC'."); 

Uwritedb(satt[0].a_name); 

nwritedbC')))"); 

IIsqRinit((char *)0); 
if (IlerrtestO == 0) ( 
if (UnextgetO != 0) { 

Uretdom( 1 ,30,4 ,&g); 

} 

nsqFlush((char *)0); 

) 

) 

/*printf("NnThere are %d records in temp_table %s",g, temp_table);*/ 

/* # line 3171 "db.sc" */ I* host code */ 

if (IIcsrOpen((char *)0,"cursor_output","db2",0,temp_table) != 0) ( 
nwritedb("retrieve("); 
for (select=0;select<n-l;select++) { 
nwritedb(satt[select].a_name); 
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IlwritedbC'—'); 
nwritedb(temp_table) ; 

IlwritedbC’."); 

n writedb(s att [select] . a_name ) ; 

IlwritedbC',"); 

) 

nwritedb(s att [select] . a_name) ; 
nwritedb("="); 

IIwritedb(temp_table); 

nwritedbC'."); 

nwritedb(satt [select] . a_name) ; 
nwritedbC')"); 
ncsrQuery((char *)0); 

) 

/*printf(’V’);*/ 

look_more=0; 

1 = 0 ; 

if (c=0) { 

look_more=l; 

) 

/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 

/* # line 7 "insert.sc" */ /* insert */ 

( 

while (look_more == 0) { 

if (UcsrFetch((char *)0,"cursor_output","dbl") != 0) ( 
nsqlnit((char *)0); 
nwritedbC'append to "); 

IIwritedb(temp_table); 

nwritedbC’C); 

/* printf("Wecord id %d V'4+1);*/ 
for (i=0;i<n-l;i++) { 
nwritedb(satt[i].a_name); 
nwritedb("="); 

if (strcmp(satt[i].data_type,"c20")=0) { 

IIcsrRet( 1,32,0, char_value); 

/* printf("%s : %s",satt[i].a_name,char_value);*/ 
nsetdom( 1,32,0, char_value); 

) 
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if (strcmp(satt[i].data_type,"integer")=0) { 

UcsrRet( 1 ,30,4,«feinteger_value); 

/* printf("%s : %d ",satt[i].a_name,integer_value);V 

Usetdom( 1 ,30,4,&integer_value); 

) 

if (strcmp(satt[i].data_type,"float")=0) { 

IIcsrRet( 1 ,3 1 ,4,&real_value); 

/* printf("%s : %8.2f ",satt[i].a_namc,real_valuc);*/ 

Usetdom( 1 ,3 1 ,4,«&real_value); 

) 

if (strcmp(satt[i].data_type,"image")=0) { 

UcsrRet( 1 ,30,4,&media_value); 

/* printf("%s id is %d ",satt[i].a_name,media_value);V 

lIsetdom( 1 ,30,4,&media_value); 

) 

if (strcmp(satt[i].data_type,"sound")==0) { 

IIcsrRet( 1 ,30,4,«&inedia l_value); 

/* printf("%s %d",satt[i].a_name,medial_value);*/ 

IIsetdom(l ,30,4,&medial_value); 

) 

nwritedbC’,"); 

) 

IIwritedb(satt[i] .a_name); 

Uwritedb("="); 

if (strcmp(satt[i].data_type,"c20")=0) { 

IIcsrRet( 1,32,0, char_value); 

/* printf("%s : %s",satt[i].a_nanie,char_value);*/ 

nsetdom(l,32,0, char_value); 

) 

if (strcmp(satt[i].data_type,"integer")=0) { 

IIcsrRct( 1 ,30,4,&integer_value); 

/* printf("%s : %d ",satt[i].a_name,integer_value);*/ 

nsetdom( 1 ,30,4,&integer_value); 

) 

if (strcmp(satt[i].data_type,"float")=0) { 

IIcsrRet(l,3 1 ,4,&rcal_value); 

/* printf("%s : %8.2f ",satt[i].a_name,real_value);*/ 

IIsetdom( 1 ,3 1 ,4,«&real_value); 

} 

if (strcmp(satt[i].data_type,"image")=0) { 

IIcsrRet( 1 ,30,4,&media_value); 

/* printf("%s id is %d ",satt[i].a_name,media_value);*/ 

nsetdom( 1 ,30,4,&media_value); 
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) 

if (strcmp(satt[i].data_type,"sound")=0) | 
IIcsrRet( 1 ,30,4,&medial_value); 

/* printf("%s %d",satt[i].a_name 4 Tiedial_value);*/ 
nsetdom( 1 ,30,4,&medial_value); 

) 



/* printfCNn”);*/ 

IIcsrEFetch((char *)0); /* fetch the next record to the cursor */ 
1-H-; /* increment 1 as the counter */ 
if (l=c) { /* check if no more data to print */ 

look_more =1; /* exit of the loop */ 

I 

UwritedbC' )"); 

IIsqSync(3,(char *)0); 

) /* UcsrFetch */ 

) /* end while */ 



ncsiClose((char *)0,"cursor_output","dbl"); /* close the cursor */ 
ncstClose((char *)0,"cursor_output","db2"); /* close the cursor */ 
retum(temp_table); 



4c 4c 4c ^ 4c 3(C ^ ^ 4c ^ ^ ^ 



This function takes two temp tables and unions them, puts the result in 
temp_tablel and returns the result to the calling function 

4(4(4(^4t4(4(4t4(4(4t4(4t4(4(4(4(4(4(4r4t4r4r4(4r4t4r4(4(4r4(3(c^3(c4r4(4(4(4(4r4(4(4r4(4(4(4(4(4(4r4t^4<4(4t4(4r4r4(4(4(^4c4t4(y 



union_tables_for_nested(temp_table 1 , temp_table) 
char temp_tablel[20]; 
char temp_table[20J; 

I 



int c=0 j=0,k=04=0,temp, count; 

/♦char*/ STR_name char_value[21]; 
char file_name[20],a; 

int integer_value,media_value, found, medial_value; 
float real_value; 
int i=0,select=0; 
int g=0; 

/*printf("\nNow we are in union_tables_for_nested");*/ 
I* # line 3169 "db.sc" */ /* select */ 

I 

nsqlnit((char *)0); 

IIwritedb("retrieve(c=(count("); 
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IIwritedb(temp_table 1 ); 

nwritedbC'."); 

llwritedb(satt[0].a_name); 

IlwritedbC')))"); 

IIsqRinit((char *)0); 
if (IlerrtestO == 0) | 
if (llnextgetO != 0) { 
nretdom( 1 ,30,4,&c); 

) /* nnextget */ 

IIsqFlush((char *)0); 

} /* Ilentest */ 

) 

1 = 0 ; 

/*printf("NnThere are %d records in temp_table %s",c, temp_tablel);*/ 

/♦ # line 3171 "db.sc" ♦/ /* host code */ 

if (IIcsrOpen((char *)0,"cursor_output","dbl",0,temp_tablel) != 0) { 
IIwritedb("retrieve("); 
for (select=0;select<n-l;select++) { 

IIwritedb(satt[select] .a_name); 
nwritedb("="); 
nwritedb(temp_table 1 ); 
nwritedbC'."); 

IIwritedb(satt [select] .a_name); 
nwritedbC’,"); 

) 

n writedb(satt [select] .a_name); 
nwritedb("="); 
n writedb(temp_table 1 ); 
nwritedbC’."); 

nwritedb(satt [select] .a_name); 
nwritedbC’)’’); 
ncsiQuety((char *)0); 

) /* ncsrOpen */ 

/*&&&&&&&&&&&&&&&&&&&&&&&«&*/ 

{ 

nsqlnit((char *)0); 
nwritedbC’create ’’); 
nwritedb(temp_table); 
nwritedbC’C’); 
for (i=0;i<n-l;i++){ 
nwritedb(satt[i] . a_name); 
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nwritedbr="); 

if ((strcmp(satt[i].data_type, "image") = 0) II 

(strcmp(satt[i].data_type, "sound") = 0) II 

(strcmp(satt[i].data_type, "integer") = 0)) 

Uwritedb("i4,"); 

else 

if (strcmp(satt[i].data_type, "float") = 0) 

Uwritedb("f4,"); 

else 

( /♦ char data_type ♦/ 

nwritedb(satt[i] .data_type); 
nwritedbC’,"); 

) 

) /* End of for loop i */ 

Uwritedb(satt[iJ .a_name); 

IIwritedb("="); 

if ((strcmp(satt[i].data_type, "image") = 0) II 

(strcmp(satt[i].data_type, "sound") = 0) II 
(strcmp(satt[i].data_type, "integer") == 0)) 
nwritedb("i4"); 
else 

if (strcmp(satt[i].data_type, "float") = 0) 

Uwritedb("f4"); 

else 

{ /♦ char data_type */ 

nwritedb(satt[i] .data_type); 

) 

nwritedbC’)"); 

UsqSync(0,(char *)0); 

) 

!*&&&&&&&&&&&&&&&&&&&&&&&&*! 

/* # line 3169 "db.sc" ♦/ /♦ select ♦/ 

{ 

nsqlnit((char *)0); 

Uwritedb("retrieve(g=(count("); 
nwritedb(temp_table); 
nwritedbC’."); 
nwritedb(satt[0].a_name); 
nwritedb(’’)))’’); 
nsqRinit((char *)0); 
if (IlerrtestO == 0) ( 
if (IlnextgetO != 0) { 
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lIretdoni( 1 ,30,4,&g); 

) 

IIsqFlush((char *)0); 



/* # line 3171 "db.sc" ♦/ /* host code *! 

if (IIcsrOpen((char *)0,”cursor_output","db2",0,temp_table) != 0) { 
IIwritedb("retrieve(" ); 
for (select=0;select<n-l;select-H-) | 

IIwritedb(satt[select] . a_name); 
nwritedb("="); 
nwritedb(temp_table); 
nwritedbC’."); 

nwritedb(satt[select].a_name); 

nwritedbC’,"); 

) 

nwritedb(satt(select] .a_name); 
nwritedb("="); 
nwritedb(temp_table); 
nwritedbC'."); 

n writedb(s att[select] . a_name); 
nwritedbC')"); 
ncsrQuery((char *)0); 

) 



/*printfC'Vii");*/ 

look_more=0; 

1 = 0 ; 

if (c==0) { 

look_more=l; 

) 

/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 

/* # line 7 "insert.sc" */ /* insert */ 

I 

wliile (look_more = 0) | 

if (ncsrFetch((char *)0,"cursor_output","dbl") != 0) | 
nsqlnit((char *)0); 
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IlwritedbC'append to 

IIwritedb(temp_table) ; 

Uwritedbrf); 

for (i=0;i<n-l;i++) { 
nwritedb(satt[i].a_name); 
nwritedb("="); 

if (strcmp(satt[i].data_type,"c20")=0) | 
IIcsrRet( 1,32,0, char_value); 
lIsetdom( 1,32,0, char_value); 

I 

if (strcmp(satt[i].data_type,"integer")=0) { 
llcsrRet( 1 ,30,4,&integer_value); 
nsetdom( 1 ,30,4,«feinteger_value); 

} 

if (strcmp(satt[i].data_type,"float")=0) | 
lIcsrRet( 1 ,3 1 ,4,&real_value); 
llsctdoni( 1 ,3 1 ,4,&real_value); 

I 

if (strcmp(satt[i].data_type,"image")=0) { 
llcsrRet( 1 ,30,4,«femedia_value); 
llsetdom( 1 ,30,4,&media_value); 

) 

if (strcmp(satt[i].data_type,"sound")==0) { 
UcsrRet( 1 ,30,4,4&medial_value); 
llsetdom( 1 ,30,4,&medial_value); 

I 

nwritedbC’,"); 

I 

llwritedb(satt[i] .a_name); 

nwritedb("=’’); 

if (strcmp(satt[i].data_type,"c20")==0) | 
IlcsrRet( 1,32,0, char_value); 
nsetdom( 1,32,0, char_value); 

) 

if (strcmp(satt[i].data_type,"lnteger")=0) { 
IlcsrRet( 1 ,30,4,&integer_value); 
nsetdom( 1 ,30,4,&integer_value); 

I 

if (strcmp(satt[i].data_type,"float")=0) { 
llcsrRet( 1,31 ,4,&real_value); 
nsetdom( 1 ,3 1 ,4,&real_value); 

} 

if (strcmp(satt[i].data_type,"image")=0) { 
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ncsrRet(l ,30,4,&media_value); 
nsetdom( 1 ,30,4,&media_value); 



if (strcmp(satt[i].data_type,"sound")=0) { 
IIcsrRet(l ,30,4,&medial_value); 
lIsetdom(l ,30,4,&medial_value); 

) 



/♦ printfC^n");*/ 

IIcsrEFetch((char ‘")0); /* fetch the next record to the cursor */ 

1++; /* increment 1 as the counter ♦/ 
if (l=c) I /* check if no more data to print */ 
look_more =1; /* exit of the loop */ 

) 

nwritedbC )"); 

IlsqSync(3,(char *)0); 

) /* UcsrFetch */ 

) /* end while */ 



) 

IIcsrClose((char *)0,"cursor_output",'’dbl"); /* close the cursor */ 
IIcsrClose((char *)0,"cursor_output","db2"); /* close die cursor */ 
return! temp_table); 






This function takes two temp tables and unions them, puts the result in temp_table 
and returns the result to the calling function 






union_tables_for_demo(temp_tablel, temp_table2, temp_table) 
char temp_tablel[20J; 
char temp_table2[20]; 
char temp_table[20]; 

{ 



int c=0,j=0,k=0,l=0,temp, count; 
int 0 = 0 , p=0; 

/♦char*/ STR_name char_value[21]; 
char file_name[20J,a; 

int integer_value,media_value,found,medial_value; 
float real_value; 
int i=0,select=0; 
int g=0; 

/*printf('\iNow we are in union_tables_for_nested");*/ 
/* # line 3169 "db.sc" */ /* select */ 
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{ 

IIsqlnit((char *)0); 

IIwritedb(”retrieve(c=(count(" ) ; 
nwritedb(tetnp_table 1 ); 

UwritedbC’."); 

llwritedb(satt[0].a_name); 

nwritedbC’)))"); 

IIsqRinit((char *)0); 
if (IleiTtestO == 0) { 
if (IluextgetO != 0) { 

IIrctdom(l ,30,4,&c); 

) /* Ilnextget */ 

IIsqFlush((char *)0); 

) /* Dentest */ 

) 

1 = 0 ; 

/*printf("\nThere are %d records in temp_table %s",c, temp_tablel);*/ 

/* # line 3171 "db.sc" */ /* host code */ 

if (IIcsrOpen((char *)0,"cursor_output","dbl",0,temp_tablel) 1= 0) { 
n writedb("retrieve(" ); 
for (select=0;select<n-l;select++) | 

IIwritedb(satt[select].a_name); 
nwritedb("="); 
n writedb(temp_table 1 ); 
nwritedbC'."); 

nwritedb(satt[select] .a_name); 
nwritedbC',"); 

) 

nwritedb(satt[select] .a_name); 
nwritedb("="); 
nwritedb(temp_table 1 ); 
nwritedbC'."); 

nwritedb(satt[select] . a_name) ; 
nwritedbC')"); 
ncsrQuery((char *)0); 

) /* ncsrOpen */ 

/* # line 3169 "db.sc" */ /* select */ 

nsqlnit((char *)0); 

Uwritedb( "retrieve(o=(count(" ); 
nwritedb(temp_table2); 

UwritedbC’."); 
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IIwritedb(satt[0] .a_name); 

UwritedbC’)))"); 

IIsqRinit((char *)0); 
if (IlerrtestO == 0) ( 
if (IlnextgetO != 0) { 
nretdom( 1 ,30,4,&o); 

) /* Ilnextget */ 

IIsqRush((char *)0); 

) /* Ilentest ♦/ 

I 

1 = 0 ; 

/*printf("\nThere are %d records in temp_table %s",o, temp_tablel);*/ 

/* # line 3171 "db.sc" */ /* host code */ 

if (IIcsrOpen((char *)0,"cursor_output","db3",0,temp_table2) != 0) | 
IIwritedb("retrievc("); 
for (select=0;select<n-l;select++) { 
nwritedb(satt[select] .a_name); 
nwritedb("=”); 
nwritedb(temp_table2); 
nwritedbC’."); 

IIwritedb(satt[select].a_name); 

nwritedbC',"); 

) 

nwritedb(satt[sclect] .a_name); 
nwritedb("="); 
nwritedb(tenq)_table2); 
nwritedbC'."); 

nwritedb(satt[sclect].a_name); 
nwritedbC')"); 
ncsrQueiy((char *)0); 

) /* ncsrOpen */ 

!*&&&&&&&&&&&&&&&&&&&.&&&&&*/ 

{ 

Ilsqlnit((char *)0); 

UwritedbC'create "); 

Uwritedb(tcmp_table) ; 
nwritedbC'C); 
for (i=0;i<n-l;i++){ 
nwritedb(satt[i] . a_name) ; 
nwritedb("="); 

if ((strcmp(satt[i].data_type, "image") = 0) II 
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(strcmp(satt[i].data_type, "sound") = 0) II 

(strcmp(satt[i].data_type, "integer") = 0)) 

IIwritedb("i4,"); 

else 

if (strcmp(satt[i].data_type, "float") = 0) 

IIwritedb("f4,"); 

else 

{ /* char data_type */ 

IIwritedb(satt[i].data_ty|>e); 
nwritedbC',"); 

) 

) /* End of for loop i */ 

IIwritedb(satt[i].a_name); 

nwritedb("="); 

if ((strcmp(satt[i].data_type, "image") = 0) II 

(strcmp(satt[i].data_type, "sound") = 0) II 
(strcmp(satt[i].data_type, "integer") == 0)) 
flwritedb("i4"); 
else 

if (strcmp(satt[i].data_type, "float") = 0) 

Uwritedb("f4"); 

else 

I /* char data_type */ 

nwritedb(satt[i] .data_tyf>e); 

) 

nwritedbC")"); 

IIsqSync(0,(char *)0); 

) 

/♦&&&&&&&&&&&&&&&&&&&&&&&&*/ 

/* # line 3169 "db.sc" */ /♦ select */ 

I 

Ilsqlnit((char *)0); 

IIwritedb("retrieve(g=(count("); 

IIwritedb(temp_table) ; 
nwritedbC"."); 
nwritedbCsatt[0] .a_name); 
nwritedbC")))"); 

IIsqRinitCCchar *)0); 
if cnerrtestC) == 0) | 
if CllnextgetC) != 0) ( 
llretdomC 1 ,30,4,&g); 

) 
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IIsqRush((char *)0); 

) 

) 



/♦# line 3171 "db.sc" */ /♦ host code ♦/ 

if (IIcsrOpen((char *)0,"cursor_output","db2",0,temp_table) != 0) { 
IIwritedb("retrieve("); 
for (select=0;select<n-l;select++) ( 
nwritedb(satt[select].a_name); 
nwritedb("="); 
nwritedb(temp_table); 
nwritedbT."); 

nwritedb(satt[select].a_name); 

nwritedbC’,"); 

} 

nwritedb(satt[select].a_name); 

Uwritedb("="); 

IIwritedb(temp_table); 

DwritedbC’."); 

n writedb(s att [select] . a_name) ; 
nwritedbC')"); 

IIcsrQuery((char *)0); 

) 



/♦printfC"^");*/ 

look_more=0; 

1 = 0 ; 

if (c==0) { 

look_more=l; 

) 

/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the queiy, then print out the tuple one at a time 
imtil no more record to print to the user */ 

/* # line 7 "insert.sc" */ /* insert */ 

I 

while (look_more = 0) { 

if (IIcsrFetch((char *)0,"cursor_output","dbl") != 0) { 
Ilsqlnit((char *)0); 

IlwritedbC'append to "); 

IIwritedb(temp_table); 
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nwritedbCT); 

for (i=0;i<n-l;i++) { 
nwritedb(satt[i] . a_name); 
nwritedb("="); 

if (strcmp(satt[i].data_type,"c20")=0) { 
IIcsrRet( 1,32,0, char_value); 

Usetdom( 1,32,0, char_value); 

I 

if (strcmp(satt[i].data_type,"integer")=0) { 
IIcsrRet( 1 ,30,4,&integer_value); 
nsetdom( 1 ,30,4,&integer_value); 

) 

if (strcmp(satt[i].data_type,"float")=0) { 
llcsrRet( 1 ,3 1 ,4,&real_value); 
nsetdom( 1 ,3 1 ,4,&real_value); 

I 

if (strcmp(satt[i].data_type,"image")=0) { 
IlcsrRet( 1 ,30,4,&media_value); 

IIsetdom( 1 ,30,4,&media_value); 

} 

if (strcmp(satt[i].data_type,"sound")==0) { 
IlcsrRetf 1 ,30,4,&mcdial_value); 
lIsetdom(l ,30,4,&medial_value); 

) 

nwritedbC’,"); 

) 

IIwritedb(satt[i] .a_name); 

Uwiitedb("="); 

if (strcmp(satt(i].data_type,"c20")=0) | 
IIcsrRetf 1,32,0, char_value); 
nsetdom( 1,32,0, char_value); 

) 

if (strcmp(satt[i].data_type,"integer")=0) { 
IIcsrRet( 1 ,30,4,&integer_value); 

Dsetdomf 1 ,30,4,&integer_value); 

I 

if (strcmp(satt[i].data_type,"float")=0) { 
IIcsrRet(l ,3 1 ,4,&real_value); 
nsetdom( 1,31 ,4,&real_value); 

) 

if (strcmp(satt[i].data_type,"image")=0) { 
IIcsrRet( 1 ,30,4,&media_value); 
nsetdoni( 1 ,30,4,&media_value); 
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I 

if (strcmp(satt[i].data_type,"sound")=0) { 

IIcsrRet(l ,30,4,&medial_value); 
nsetdom(l ,30,4,&medial_value); 

) 

/* printfCNn");*/ 

IIcsrEFetch((char *)0); /* fetch the next record to the cursor */ 

1++; /* increment 1 as the counter */ 

if (l=c) { /* check if no more data to print */ 

look_more =1; /* exit of the loop */ 

) 

IlwritedbC’ )"); 

IIsqSync(3,(char *)0); 

) /* UcsrFetch */ 

) /* end while */ 

I 

ncsrClose((char *)0,"cursor_output","db2"); /* close the cursor */ 



/* # line 3171 "db.sc" */ /* host code */ 

if (IIcsrOpen((char *)0,"cursor_output","db2",0,temp_table) != 0) { 
nwritedb("retrieve("); 
for (select=0;select<n-l;select++) { 

IIwritedb(satt[select].a_name); 

IlwritedbC—"); 

IIwritedb(temp_table); 

nwritedbC’."); 

IIwritedb(satt[select].a_name); 

nwritedbC',"); 

) 

nwritedb(satt[select].a_name); 

nwritedb("="); 

nwritedb(temp_table); 

nwritedbC’."); 

nwritedb(satt[select].a_name); 
nwritedbC')"); 
ncsrQuery((char *)0); 

} 



/*printf("Sn");*/ 

look_more=0; 

1=0; 
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if (c==0) { 

look_more=l; 



/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 

/* # line 7 "insert.sc" */ /* insert */ 

( 

wliile (look_more = 0) ( 

if (IIcsrFetch((char *)0,"cursor_output","db3") != 0) | 
Ilsqlnit((char *)0); 

IlwritedbC'append to "); 

IIwritedb(temp_table); 

Uwritedb("("); 
for (i=0;i<n-l;i++) | 
nwritedb(satt[i] .a_name); 
nwritedbr="); 

if (strcmp(satt[i].data_type,"c20")=0) { 

IIcsrRet( 1,32,0, char_value); 

Usetdom( 1,32,0, char_value); 

) 

if (strcmp(satt[i].data_type,"integer")=0) { 
lIcsrRet( 1 ,30,4,&integer_value); 

Usetdom( 1 ,30,4,&integer_value); 

) 

if (strcmp(satt[i].data_type,"float")=0) | 
ncsrRet( 1 ,3 1 ,4,&real_value); 

IIsetdom( 1 ,3 1 ,4,&real_value); 

) 

if (strcmp(satt[i].data_type,"image")=0) | 
lIcsrRet( 1 ,30,4,&media_value); 
lIsetdom( 1 ,30,4,&media_value); 

I 

if (strcmp(sattfi].data_type,"sound")==0) ( 

IIcsrRet( 1 ,30,4,&medial_value); 

IIsetdom( 1 ,30,4,&medial_value); 

) 

nwritedbC’,"); 

) 

IIwritedb(satt[i].a_name); 

nwritedb("="); 
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if (strcmp(satt[i].data_type,"c20")=0) | 
ncsrRet(l,32,0, char_value); 
nsetdom( 1,32,0, char_value); 

) 

if (strcmp(satt[i].data_t)T>e, "integer" )=0) | 
ncsrRet(l ,30,4,&integer_value); 
nsetdom( 1 ,30,4,&integer_value); 

) 

if (strcmp(satt[i].data_type,"float")==0) { 

IIcsrRet( 1,31 ,4,&real_value); 

Ilsetdom( 1 ,3 1 ,4,&ieal_value); 

) 

if (strcmp(satt[i].data_type,"image")=0) { 

IlcsrRet(l ,30,4,&media_value); 
nsetdom(l ,30,4,&media_value); 

) 

if (strcmp(satt[i].data_type,"sound")=0) { 
ncsrRet(l ,30,4,«femedial_value); 
nsetdom( 1 ,30,4,«femedial_value); 

) 

/* printf("\n");V 

IIcsrEFetch((char *X)); /* fetch the next record to the cursor */ 

1++; /* increment 1 as the counter */ 



if (l=o) I /* check if no more data to print */ 
look_more =1; /* exit of the loop */ 

) 

nwritedbf )"); 

IIsqSync(3,(char *)0); 

) /* ELcsrFetch ’"/ 

) /* end while */ 

) 



IIcsrClose((char *)0,"cursor_output","db2"); /* close the cursor */ 
ncsiClose((char *)0,"cursor_output","dbl"); /* close the cursor */ 
ncsrClose((char *)0,"cursor_output","db3"); /* close the cursor */ 
retuni(temp_table); 



3|C ^ ^ ]|c 3|< 3|c ](( :|c ^ ]|c ](( ]|c ]|c ^ :|c ^ ^ :|c ^ ^ :|c ]|( ]|c ]|( ]|c 3|( 4c 3|C ]|( S|( 3|( ]|( 4c 4c 



This function retrieves the tuples from temp_tablel which do not take place in 
temp_table2 and puts the result in temp_table. 

4c 4( 4( 4( ♦ 4( ♦ 4< 4( 4( 4( ♦ ♦ 4( ♦ 4( 4( 4( 4( 4< ♦ ♦ ^ ♦ 4< ♦ ♦ ♦ 4< 4t 4( 4< 4( 4< 4< 4( * He ^ 4< ♦ ^ 



minus(temp_tablel, temp_table2, temp_table) 
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char temp_tablel[20]; 
char temp_table2[20]; 
char temp_table[20]; 

{ 

int i; 

nsqlnit((char *)0); 
nwritedbC'retrieve into "); 
IIwritedb(temp_table); 

nwritedbCT); 

for (i=0;i<n-l;i++) { 
IIwritedb(temp_table 1 ); 
nwritedbC’."); 
nwritedb(satt [i] . a_name) ; 
DwritedbC’,"); 

) 

IIwritedb(temp_table 1 ) ; 
nwritedbC'."); 
nwritedb(satt[i] .a_name); 
nwritedbC’)"); 

nwritedbC'wheie any("); 
nwritedb(temp_table2); 
nwritedbC'. all by "); 
nwritedb(temp_table 1 ); 
nwritedbC'.all "); 
nwritedbC where("); 
for (i=0;i<n-l;i++) { 
nwritedb(tenip_tablel ); 
nwritedbC'."); 
nwritedb(satt[i] .a_name); 
nwritedb("="); 
nwritedb(temp_table2); 
nwritedbC'."); 
nwritedb(satt[i] .a_name); 
nwritedbC and "); 

) 

nwritedb(temp_table 1 ); 

nwritedbC'."); 

nwritedb(s att [i] . a_name) ; 

nwritedb("="); 

nwritedb(temp_table2); 

nwritedbC’."); 

nwritedb(satt [i] . a_name) ; 
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IIwritedb(" )"); 
Uwritedb(") = 0"); 
nsqSync(0,(char *)0); 
retum(temp_table); 






This function intersects two tables and puts the result in temp_table. 

**************t,^*******************iti**********^<*Hi**itt*************^ 

intersect_tables(temp_tablel, temp_table2, temp_table) 
char temp_tableir20]; 
char temp_table[20]; 

( 

int i; 

/* copy_to_file(temp_tablel);*/ 
nsqlnit((char *)0); 

IIwritedb( "retrieve into "); 

IIwritedb(temp_table); 

Uwritedb(T); 
for (i=0;i<n-l;i++) { 
nwritedb(temp_table 1 ); 
nwritedbC'."); 

IIwritedb(satt[i].a_name); 

nwritedbC',"); 



IIwritedb(temp_tablel ); 
nwritedbC'."); 
nwritedb(satt[i].a_name); 
nwritedbC')"); 



nwritedbC wheie("); 
for (i=0;i<n-l;i++) { 
nwritedb(temp_table 1 ) ; 
nwritedbC’."); 
nwritedb(satt[i] .a_name); 
nwritedb("="); 
nwritedb(temp_table2); 
IlwritedbC’."); 
n writedb( satt [i] .a_name ); 
nwritedbC and "); 

) 

nwritedb(temp_table 1 ); 
nwritedbC’."); 
nwritedb(satt[i] .a_name ); 
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IIwritedb("="); 

IIwritedb(temp_table2); 

UwritedbC'."); 

II writedb(satt [i] .a_name); 
nwritedbf )"); 
nsqSync(0,(char *)0); 
retum(temp_table); 



4c ^ ^ % % 3(c % % % 3(c 3(c % 3(c a(c % 3|c 3|c 3(c 3(< 3(c 3k % % ^ % % 3k % 3(c 4c :(c 4c ak ak 3k % 3k % 



This function retrieves the tuples from temp_tablel which are not included in temp2 and 
puts the result in temp_table. 

4c4(3k4<3k4(3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k4(3kak3k3k4c3k3k4(3k3k4(3k4<3k4(3k3kak4(3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k j 

templ_not_in_temp2(temp_tablel, temp_table2, temp_table) 
char temp_table[20]; 
char temp_tablel[20]; 
char temp_table2[20]; 

{ 



int i,j; 
j=0; 



printf("NnWe are in table l_NOT_IN_table2 now"); 



sqlca.sqlcode = 0; /* Initialize as error free before access INGRES */ 
Ilsqlnit(&sqlca); 

Ilwritedb("retrieve into "); 

IIwritedb(temp_table); 
nwritedbC’C); 
for (i=0;i<n-l;i++) { 
nwritedb(satt[i].t_name); 

IlwritedbC'."); 

IIwritedb(satt [i] .a_name); 

IlwritedbC',"); 

} 

n writedb(satt[i] .t_name); 
nwritedbC’."); 
n writedb(satt[i] . a_name); 

IlwritedbC')"); 



nwritedb("where(any("); 

IIwritedb(temp_table2); 

IlwritedbC'."); 

IIwritedb(attribute_for_nested); 
/* IlwritedbC'. all by ");*/ 
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/* nwritedb(temp_tablel);*/ 
nwritedbC by ”); 
nwritedb(satt[i].t_nanie); 
nwritedbC’.all "); 

IlwritedbC'where "); 
nwritedbCT); 
nwritedb(satt[i] .t_name); 

/* nwritedb(temp_tablel);*/ 
nwritedbC'."); 

nwritedb(condition_for_nested); 

llwritedb("="); 

nwritedb(temp_table2); 

nwritedbC’."); 

nwritedb(attribute_for_nested); 
nwritedbC’)"); 
nwritedbC’) = 0’’); 
if (m>l){ 

nwritedbC’ and ’’); 
nwritedb( ’’(’’); 
nwritedb(join_condition); 
nwritedbC’)"); 

) 

nwritedbC’)"); 

nsqSync(0,&sqlca); 

if (sqlca.sqlcode != 0){ 

printf("VnAn error occurred while accessing the database’’); 
for (j=j+l; j<m; j++){ 
init_buffer(temp_tablel ,20); 
strcpy(temp_tablel, stablj].t_name); 

sqlca.sqlcode = 0; /* Initialize as error free before access INGRES */ 

nsqlnit(&sqlca); 
nwritedb(’’retrieve into ’’); 
nwritedb(temp_table); 
nwritedbCT); 

for (i=0;i<n-l;i++) { 
nwritedb(satt[i].t_name); 
nwritedbC’.’’); 

Ilwritedb(satt [i] . a_name); 
nwritedbC’,"); 

} 
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IIwritedb(satt [i] .t_name); 
nwritedbC’."); 

IIwritedb(satt[i] .a_name); 
nwritedbC')"); 

nwritedb("whcre(any("); 

nwritedb(temp_table2); 

nwritedbC'."); 

nwritedb(attribute_for_nested); 
nwritedbC by "); 

/* nwritedbC". all by ");*/ 

nwritedb(satt[i].t_name); 

/* nwritedb(temp_tablel);*/ 

nwritedbC'.all "); 
nwritedbC'wherc "); 
nwritedbC'C); 
nwritedb(satt[i] .t_name); 

/* nwritedb(temp_tablel);*/ 

nwritedbC’."); 

nwritedb(condition_for_nested); 
nwritedb("="); 
nwritedbC temp_table2); 
nwritedbC"."); 

nwritedbCattribute_for_nested); 
nwritedbC')"); 
nwritedbC") = 0"); 
if Cm>l)( 

nwritedbC" and "); 
nwritedbC'C); 
nwritedbCjoin_condition); 
nwritedbC")"); 

) 

nwritedbC")"); 

nsqSyncCO,&sqlca); 

)/* end for j<m */ 

)/* end if */ 



) 



This function joins tempi and temp2 and retrives the tuples from tempi that takes place 
in tcmp2 and puts the result in temp_table. 



^ ](ci<c ^ 3(e 4c % % s(c % ^ ^ ^ ^ ^ ^ ^ ^ ^ 3|t ^ ^ ]|c % % ^ ^ ^ ^ ^ ^ ^ ^ ifc % 3fc sk sk ^ 
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templ_in_temp2(tenip_tablel, temp_table2, temp_table) 
char temp_table[20J; 
char temp_tablel[20]; 
char temp_table2[20]; 

{ 

int i,j; 
j=0; 



printfC'VnWe are in table l_IN_table2 now"); 

sqlca.sqlcode = 0; /* Liitialize as error free before access INGRES */ 
Ilsqlnit(&sqlca); 

IlwritedbC'retrieve into "); 

nwritedb(temp_table); 

nwritedb(T); 

for (i=0;i<n-l;i++) { 

IIwritedb(satt[i] .t_name); 

Uwritedb("."); 

IIwritedb(satt[i].a_name); 

nwritedbC’,"); 

) 

nwritedb(satt[i].t_name); 

nwritedbC'."); 

nwritedb(satt[i].a_name); 

nwritedbC’)"); 

nwritedb("where("); 
nwritedbC’C'); 
nwritedb(temp_table 1 ); 
nwritedbC’."); 

n writedb(condition_for_nested) ; 
nwritedb(’’="); 
nwritedb(temp_table2); 
nwritedbC’.’’); 

nwritedb(attribute_for_nested); 

nwritedbC’)’’); 

if (m>l){ 

UwritedbC’ and ’’); 

IlwritedbC’C’); 

nwritedb(join_condition); 

nwritedbC’)"); 

) 

nwritedbC’)"); 

nsqSync(0,<fesqlca); 
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if (sqlca.sqlcode != 0)| 
for (j=j+l; j<m; j++)l 
init_buffer(temp_table 1 ,20); 
strcpy(temp_table 1 , stab(j] .t_naine); 

sqlca.sqlcode = 0; /* Initialize as error free before access INGRES */ 
nsqlnit(&sqlca); 

IlwritedbC'retrieve into "); 

IIwritedb(temp_table); 
nwritedbC’C); 
for (i=0;i<n-l;i++) | 
n writedb( satt [i] .t_name) ; 

IIwritedb("."); 

IIwritedb(satt [i] .a_name); 
nwritedbC’,"); 

I 

IIwritedb(satt[i] .t_name); 
nwritedbC’."); 
nwritedb(satt[i] .a_name); 
nwritedbC’)"); 

nwritedb(’’where(’’); 
nwritedb(’’(’’); 
nwritedb(temp_table 1 ); 
nwritedbC'”); 

nwritedb(condition_for_nested); 

nwritedb(’’=’’); 

nwritedb(temp_table2); 

nwritedbC’.’’); 

nwritedb(attribute_for_nested); 

nwritedbC’)"); 

if (m>l){ 

IlwritedbC’ and ’’); 

UwritedbC’C’); 

nwritedb(join_condition); 

nwritedbC’)"); 



nwritedbC’)"); 
nsqSync(0,&sqlca); 
)/* end for */ 

}/* end if */ 



} 
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This function joins tempi and temp2 and retrieves the tuples from tempi that do not take 
place in temp2 and puts the result in temp_table. 



****************** 



4c 4e 4c ♦ 4c 4c 4c 4c 3k ♦ 4c 4c 4c 3(( 3(C ](( 4c ^ 



templ_not_exists_temp2(temp_tablel, temp_table2, temp_table) 
char temp_table[20]; 
char temp_tablel[20]; 
char temp_table2[20]; 

{ 



int i,j; 
j=0; 

printf("\nWe are in table l_not_exists_table2 now’’); 

sqlca.sqlcode = 0; /* Initialize as error free before access INGRES */ 



Ilsqlnit(&sqlca); 
IIwritedb(" retrieve into ”); 
nwritedb(temp_table); 
nwritedb("("); 
for (i=0;i<n-l;i++) | 
IIwritedb(satt [i] .t_name); 
nwritedb("."); 
IIwritedb(satt [i] .a_name); 
nwritedb(”,"); 

I 

n writedb(satt [i] . t_name); 
UwritedbC"."); 
n writedb(satt [ i] . a_name ) ; 
nwritedb(”)"); 



nwritedb("where(any(”); 
IIwritedb(tenp_table2); 
nwritedb(".all by "); 
nwritedb(satt[i] .t_name); 

/* IIwritedb(temp_tablel);*/ 
nwritedb(”.all "); 
IIwritedb(" where "); 
nwritedb("("); 
IIwritedb(join_for_nested); 
nwritedb(")”); 
nwritedb(")=0"); 
if (m>l)| 

IIwritedb(" and "); 

IIwiitedb(”("); 

IIwiitedb(join_condition); 
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nwritedbC')"); 

) 

nwritedbC’)"); 
nsqSync(0,&sqlca); 
if (sqlca.sqlcode != 0){ 

printf("ViError occurred while accessing the database"); 
for (j=j+l; j<m>; j++){ 
init_buffer(temp_table 1 ,20); 
strcpy(temp_tablel , stab|j].t_name); 

sqlca.sqlcode = 0; /* Initialize as error free before access INGRES */ 

HsqlnitC&sqlca); 

nwritedb(temp_table); 

nwritedb("("); 

for (i=0;i<n-l;i++) { 
nwritedb(satt[i] .t_name); 
nwritedbC’."); 

Uwritedb(satt[i] .a_name); 

Uwritedb(’’,’’); 

} 

n writedb(s att [i] .t_name); 

nwritedbC’.’’); 

nwritedb(satt[i].a_name); 

nwritedb(’’)’’); 

nwritedb(’’where(any("); 
nwritedb(temp_table2); 
nwritedb(’’.aU by ’’); 
nwritedb(satt[i] .t_name); 

/*nwritedb(temp_table 1 );♦/ 
nwritedb(’’.all ’’); 
nwritedb(’’where "); 
nwritedbC’(’’); 
nwritedb(join_for_nested); 
nwritedbC’’)"); 
nwritedb(’’)=0’’); 
if (m>l){ 

nwritedbC" and ’’); 
nwritedbC’’C’’); 
nwritedbCjoin_condition); 
nwritedbC’’)"); 
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) 

nwritedbC')"); 

IIsqSync(0,&sqlca); 

)/* end j<m */ 

)/* end sqlca.sqlcode != 0 */ 



3k Ik )|e % Ik 3k ic )|( Ik Ik it >i( 3k 3k 

This function retrives the tuples from tempi that exists in temp2 and puts tlie 
result in temp_table. 

3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k >k 3k 3k 3k 3k 3k 3k J 

templ_exists_temp2(temp_tablel, temp_table2, temp_table) 
char temp_table[20]; 
char temp_tablel[20]; 
char temp_table2[20]; 

( 

int i,j; 
j=0; 

printf("\nWe are in table l_exists_table2 now"); 

sqlca.sqlcode = 0; /* Initialize as error free before access INGRES */ 

nsqlnit(&sqlca); 

IlwritedbC'retrieve into "); 

IIwritedb(temp_table ); 

nwritedb("("); 

for (i=0;i<n-l;i++) { 

IIwritedb(satt[i] .t_name); 
nwritedbC’."); 
nwritedb(satt[i].a_name); 
nwritedbC’,"); 

) 

nwritedb(satt[i].t_name); 
nwritedb(’’.’’); 
n writedb(satt [i] . a_name) ; 
nwritedb(’’)"); 

nwritedb(’’where("); 
nwritedbC’C); 
nwritedb(join_for_nested); 
nwritedbC’)"); 
if (m>l){ 
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IIwritedb(" and "); 

IIwritedb("("); 

IIwritedb(join_condition); 

nwritedbC')"); 

} 

nwritedb(’’)"); 

nsqSync(0,&sqlca); 

if (sqlca.sqlcode != 0){ 
for (j=j+l; j<m; j++){ 
init_buffer(temp_table 1 ,20); 
strcpy (temp_table 1 , stab[j] .t_name); 

sqlca.sqlcode = 0; /* Initialize as error free before access INGRES */ 

nsqlnit(&sqlca); 

IIwritedb(" retrieve into "); 
nwritedb(temp_table); 

nwritedbCT); 

for (i=0;i<n-l;i++) | 

IIwritedb(satt(iJ .t_name) ; 
nwritedbC'."); 

IIwritedb(satt[i] .a_name); 
nwritedbC',"); 

} 

nwritedb(satt[i] .t_name); 
nwritedbC'."); 
nwritedb(satt[i].a_name); 
nwritedbC')"); 

nwritedbC where("); 
nwritedbC'C); 
nwritedb(join_for_nested); 
nwritedbC')"); 
if (m>l){ 

nwritedbC and "); 
nwritedbC'C); 
nwritedb(join_condition); 
nwritedb(")"); 

) 

nwritedbC')"); 

nsqSync(0,&sqlca); 

)/* end if j<m */ 

)/* end for */ 
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) 

3 fc 3 fc :f( 3 (C ^ :fe ^ afcfcfc ^ :fc ^ :fc ^ 3k 3k 3k 3fc 9k 3fc 3k 3f( % 3fe :fe 3fe 3fc3fc 3(C :fc 3fe ^ ^ 3fe Dfcfc ^ 9fc sfc 3fc 

This function calculates the number of tuples retrieved in the result table and prints the 
number of tuples. 

jk 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k ^ ^ 3k 3k 3k 3k 3k 3k 3k 3k 3k % 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k ^ 

void print_count(temp_table, i) 
char temp_table[20]; 
int i; 

I 

int t=0; 



{ 

Ilsqlnit((char *)0); 

IlwritedbC’retrieve unique(t=("); 

IlwritedbC'coimt"); 

nwritedb("("); 

nwritedb(temp_table); 
nwritedbC'."); 
nwritedb(satt[i] .a_name); 
nwritedbO))"); 
nsqRinit((char *)0); 
if (HentestO = 0) { 
if (IlnextgetO != 0) { 
nretdom(l,30,4,&t); 

) /* llnextget */ 

IIsqFlush((char *)0); 

) /* Uerrtest */ 

) 

printf("COUNT(%s) = %d ”,satt[i].a_name, t); 

) 

^:k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 



This function calculates the sum of a cloumn retrieved in the result table and prints the 
sum. 

3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k j 



void print_sum(temp_table, i) 
char temp_table[20]; 
int i; 

( 

int t=0; 



I 

nsqlnit((char *)0); 
nwritedbC'retrieve unique(t=("); 
IlwritedbC’sum"); 
nwritedbC ("); 
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n writedb(temp_t able ); 
IlwritedbC'."); 
IIwritedb(satt[i].a_name); 
nwritedbC’)))"); 
IIsqRinit((char *)0); 
if (DentestO == 0) { 
if (IlnextgetO != 0) { 
nretdom(l,30,4,&t); 

) /* nnextget */ 
IIsqHush((char *)0); 

) /* Uerrtest ♦/ 



) 

printf("SUM(%s) = %d ",satt[i].a_name, t); 



) 

This function calculates the average of an attribute of a tuple retrieved in the result table 
and prints the average. 

^,^,4i:t‘**************************************4‘***4‘4‘^ 



void print_avg(temp_table, i) 
char temp_table[20]; 
int i; 

{ 

int t=0; 

{ 

nsqlnit((char *)0); 
nwritedbC'retrieve unique(t=("); 
DwritedbCavg"); 
nwritedbCT); 
Uwritedb(temp_table); 
nwritedbC’."); 
n writedb(s att [i] .a_name); 
nwritedbC')))"); 
nsqRinit((char *)0); 
if (HemestO = 0) { 
if (IlnextgetO != 0) { 

IIretdom( 1 ,30,4,&t); 

} /* nnextget */ 
nsqFlush((char *)0); 

) /* nerrtest */ 



printf("AVG(%s) = %d",satt[i].a_name, t); 

) 

y******************j|c:k*3k*:|<**3|t3|r3|r3|(*j|cak*******3kak**4t%ak* 
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This function finds the max of a coloumn of a tuple in the temp_table and prints the max. 

:(< %***««*«* 4t 4< 4 < 4c 4< 4«*> <l> 4< 4«*»f 4c 4> 4«l< * <*«l> * ** * *4< 4> 



void print_max(temp_table, i) 
char temp_table[20]; 
int i; 

I 

int t=0; 



I 

Ilsqlnit((char *)0); 
nwritedbC'retrieve unique(t=("); 
nwritedbC’max"); 

nwritedb(T); 

nwritedb(temp_table); 
nwritedbC’."); 
nwritedb(satt[i].a_name); 
nwritedbC’)))"); 
nsqRinit((char *)0); 
if (nerrtestO = 0) | 
if (HnextgetO != 0) | 
nretdom( 1 ,30,4,&t); 

) /* Hnextget */ 
UsqFlush((char *)0); 

) /* Uerrtest */ 



) 

printf("MAX(%s) = %d ",satt[i].a_name, t); 



^4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



This function calculates the min of an attribute of a tuple retrieved in the temp_table and 
prints the min. 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c4c 4c 4c 4c 4c4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4cy 



void print_niin(temp_table, i) 
char temp_table[20]; 
int i; 

I 

int t=0; 

{ 

nsqlnit((char *)0); 
nwritedbC'retrieve unique(t=("); 
nwritedb( " min" ); 
nwritedbCT); 
nwritedb(temp_table); 
nwritedbC’."); 

nwritedb(satt[i].a_name); 
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nwritedbC')))"); 
UsqRinit((char *)0); 
if (DentestO = 0) { 
if (IlnextgetO != 0) { 
nretdom( 1 ,30,4,&t); 
} /* Dnextget */ 
IIsqFlush((char *)0); 

) /* Ilerrtest */ 



I 

printf("MIN(%s) = %d ",satt[i].a_name, t); 



aft 9(e 3(e ♦ ak ♦ ak a(( aK ^ 3|( a|( aH 



This function checks the aggregate type in the struct satt and calls the appropriate 
function. 

4e aft aft aft aft aft ♦ >k ak ak aft ak aft aft aft ak ak 4(>k ak ♦ ak aft ♦ aft aft afc >k ak aft aft aft aft ale aft aft >k ak >k >k >k >k ♦ >k >k >k aft 4t aft ♦ aft aft ak aft afeift Ik ^ 



print_aggregates(temp_table) 
char temp_table[20]; 

{ 



int v; 

for(v=0; v<n; v++){ 
if (satt[v].aggregate_type=l) 
print_count(temp_table, v); 
if (satt[v].aggregate_type=2) 
print_sum(temp_table, v); 
if (satt[v].aggregate_type=3) 
print_avg(temp_table, v); 
if (satt[v].aggregate_type==4) 
print_max(temp_table, v); 
if (satt[v].aggregate_type=5) 
print_min(temp_table, v); 



y* lit it> itt **«««*** 4i Id 4> 4c * 4c 4»l«' * >t< 4< * 4< 4> 4< 4> 4»t"t> 4< 4< 4> 4> <•"•< 4< <f <•"•> 4< 4> 4"t< 



This function prints the tuples retrived in the result table. 

4c4c4"l<>l<4>«<d>l<4<4c*itc4c4c4t4t4t4t4(4t4c4c4ci|<«>|ti|c«>|ci«c>|MtMtt«>tMl>i|c>tMtc>tci|c:|cc|c>tM«c>|ci|nlc>tt*i|cc|c>tc>tc>|c>|M|c>(ci«c>|cc|c>tc*>«Mtc^ 



print_result_table(temp_table,flag,c) 
char temp_table[20J; 
int flag; 
int c; 

( 



int v; 

int j=0dc=0,l=0,temp,select=0; 
char char_value[21],a, Ans; 
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char file_name[20]; 

int integer_value,media_value,found,medial_value; 

float real_value; 

int record_id; 

int i=0; 

c=0; 

/* # line 3169 "db.sc" */ /* select */ 

{ 

Ilsqlnit((char *)0); 

IlwritedbC'retrieve unique(c=(count("); 
IIwritedb(temp_table); 

Uwritedb(”."); 

Ilwritedb(satt[0].a_name); 

nwritedbf)))"); 

UsqRinit((char *)0); 
if (IlerrtestO == 0) | 
if (IlnextgetO != 0) { 

IIretdom( 1 ,30,4,&c); 

) /* Unextget */ 

IIsqFlush((char *)0); 

) /* nerrtest */ 

) 

1=0; 

if (flag=FALSE){ 

printf("\iiThere are %d records that match the query" ,c); 

/* */ 

if (c=0) { 

printf("^nPress ENTER to continue..."); 

a=getchar(); 

return; 



} 

/* # line 3171 "db.sc" */ /♦ host code */ 

if (UcsrOpen((char *)0,"cursor_output","dbl",0,temp_table) f= 0) | 
IlwritedbC'retrieve ("); 
for (select=0;select<n-l;select++) { 
nwritedb(satt[select].a_name); 

Ilwritedb("="); 

nwritedb(temp_table); 

nwritedbC'."); 

Ilwritedb(satt[select].a_name); 

nwritedbC',"); 

) 
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nwritedb(satt [select] . a_name); 
nwritedb("="); 

IIwritedb(temp_table); 

nwritedbr."); 

IIwritedb(satt[select] .a_name); 
nwritedbC')"); 

IIcsrQuery((char *)0); 

) /* HcsrOpen */ 
printf("Nn"); 
look_more=0; 

1 = 0 ; 

if (c==0) I 

look_more=l; 

) 

/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 
while (look_moie = 0) ( 

if (IIcsrFetch((char ♦)0,"cursor_output",'’dbr’) != 0) { 
printfC'record id %d Nt",l+1); 
for (i=0;i<n;i++) { 

if (strcmp(satt[i].data_type,"c20")==0) { 

IIcsrRet( 1 ,32,0,char_value); 
if (satt[i].aggrcgate_type=0) 
piintf("%s : %s",satt[i].a_name,char_value); 



if (strcmp(satt[i].data_type,"integer’’)=0) { 

IIcsrRet( 1 ,30,4,&integer_value); 
if (satt[i].aggiegate_type=0) 
printf("%s : %d ”,satt[i].a_name,integer_value); 

) 

if (strcmp(satt[i].data_type,"float")=0) ( 

IIcsrRet( 1 ,3 1 ,4,«fereal_value); 
if (satt[i].aggiegate_type=0) 
printf("%s : %8.2f ",satt[ij.a_name,real_value); 

) 

if (strcmp(satt[i].data_type,”image")==0) { 

IIcsrRet( 1 ,30,4,&media_value); 
if (satt[i].aggregate_type=0) 
printf("%s id is %d ”,satt[i].a_name,media_value); 

) 

if (strcmp(satt[i].data_type,"sound")=0) { 
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IIcsrRet( 1 ,30,4,&media l_value); 
if (satt[i].aggregate_type=0) 
printf("%s id is %d",satt[i].a_name,medial_value); 

) 

) /* end for select < n*/ 

IIcsrEFetch((char *)0); /* fetch the next record to the cursor */ 

1++; /* increment 1 as the counter */ 
if (l=c) ( /* check if no more data to print */ 

look_more =1; /* exit of the loop */ 

) 

print_aggregates(temp_table); 

printf("\n"); 

) /* IIcsrFetch */ 

) /* end while */ 

ncsiClosc((char *)0,"cursor_output","dbl"); /* close the cursor */ 
if (flag==FALSE){ 
printfC'Press ENTER to continue 
a= getcharO; 

) 

/* this for the check for the media selection */ 
if (c==0) { 
i=9999; 

) 



/* if there are some aggregate functions print their results */ 
/* print_aggregates(temp_table); 
printf("\nPress ENTER to continue 
a= getcharO;*/ 
retum(c); 






This function gets the image id of a tuple in the result table. 

% )fe )fc 4c )fc 4c % 3|c % 4c 4c % 4c 4c % % 4c % 4c % 4c 4c 3|c ]fc 4c 3|c % ]|( 4* 4c ifc % 4* % % 4* % ]|c ^ 

get_image_id(r,image_id) 
int r; 

int image_id; 



int sound_id; 
int entry; 
int desired_tuple; 
char c_temp[60]; 
int count=0; 



int j=0Jc=0, 1=0, temp; 
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char char_value[21J,a; 
char file_name[20]; 
int img_value, snd_value; 

int integer_value,media_value, found, medial_value; 
float real_value; 
int i=0,select=0; 
int g=0; 
int d; 

i_value[i_index]=0; 

desired_tuple=r; 

/* # line 3169 "db.sc" */ /* select */ 

( 

Ilsqlnit((char *)0); 

IIwritedb( "retrie ve(g=(count(" ); 
IIwritedb(tetnp_table); 

nwritcdb(".’’); 

llwritedb(satt[0].a_name); 

nwritedbC’)))"); 

IIsqRinit((char *)0); 
if (IlentestO == 0) { 
if (OnextgetO != 0) { 
lIretdom( 1 ,30,4,«feg); 

I /* llnextget */ 

IIsqFlush((char *)0); 

) /* Ilentest */ 



if (g=0) I 

printf(’NnPress ENTER to continue..."); 

a=getchar(); 

return; 

) 

/♦ # line 3171 "db.sc" ♦/ /* host code */ 

if (IIcsrOpen((char *)0,"cursor_output","db2",0,temp_table) != 0) { 
nwritedbC retrieve(" ); 
for (select=0;select<n-l;select++) { 
nwritedb(satt[select].a_name); 
nwritedb("="); 
nwritedb(temp_table); 
nwritedbC’."); 

nwritedb(satt[select].a_name); 

nwritedbC,"); 

) 
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n writedb(satt [select] . a_name) ; 
nwritedb(’’=”); 
llwritedb(temp_table); 
nwritedbC’."); 

n writedb(s att [select] . a_naiiie) ; 
nwritedbC)"); 
ncsrQueiy((char *)0); 

] /* ncsrOpen */ 
printf("\n"); 
look_more=0; 

1 = 0 ; 

if (g=0) { 
look_more=l; 

) 

/* Fetch the cursor to the result relation which is the inteimediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 

while (look_more == 0) | 

if (ncsrFetch((char *)0,"cursor_output","db2") != 0) { 
if (desired_tuple = 1)| 
printfC’record id %dNt",l+l); 

) 

for (i=0;i<n;i++) { 

if (strcmp(satt[i].data_type,"c20")=0) { 

UcsrRet( 1 ,32,0,char_vdue); 
if (desired_tuple == 1) { 
printf("%s : %s",satt[i].a_name,char_value); 

) 

} 

if (strcmp(satt[i].data_type,"integer")=0) { 
ncsrRet(l ,30,4,&integer_value); 
if (desired_tuple -- 1) ( 

piintf("%s : %d ",satt[i].a_name4nteger_valuc); 

) 

I 

if (strcmp(satt[i].data_type,"float")=0) { 

HcsrRet( 1 ,3 1 ,4,&real_value); 
if (desired_tuple == 1){ 

printf("%s : %8.2f ”,satt[i].a_name,real_value); 

) 

) 

if (strcmp(satt[i].data_type,"image")=0) { 
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IIcsrRet( 1 ,30,4,&media_value); 
if (desired_tuple -- 1){ 
image_id=media_value ; 

printf("%s id is %d ”,satt[i].a_name,media_value); 

) 

I 

if (strcmp(sattfi].data_type,"sound")==0) ( 

UcsrRet(l ,30,4,&medial_value); 
if (desired_tuple == 1){ 

/* sound_id=medial_value;*/ 

printf("%s %d",satt[i].a_name,medial_value); 

) 

I 

)/*end for select n*/ 

IIcsrEFetch((char ’")0); /* fetch the next record to the cursor */ 

1-H-; /* increment 1 as the counter */ 
if (l=g) I /* check if no more data to print */ 
look_more =1; I* exit of the loop */ 

I 

) /* IlcsrFetch */ 

) /* end while */ 



IlcsrClose((char *)0,"cursor_output","db2"); /* close the cursor */ 



printf("^nPress ENTER to continue 

a= getcharO; 

retum(image_id); 



yif( ^ ^ ^ ^ ^ 4( ^ 4ci(( ik ^ )|( )(( )|( )(( ^ )|( ik ^ ^ ^ 



This function gets the sound id of a tuple in the result table. 

get_sound_id(r,sound_id) 
int r; 

int sound_id; 

I 



int image_id; 
int entry; 
int desired_tuple; 
char c_temp[60]; 
int count=0; 



int j=0,k=0, 1=0, temp; 
char char_value[21],a; 
char file_name[20J; 
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int inig_value, snd_value; 

int integer_value,media_value, found, medial_value; 
float real_value; 
int i=0,select=0; 
int g=0; 
int d; 

i_value[ i_index]=0; 
desired_tuple=r; 

/* # line 3169 "db.sc" */ /* select *! 

{ 

Ilsqlnit((char *)0); 

IIwritedb("retrieve(g=(count("); 

Uwritedb(temp_table); 

IIwritedb(".”); 

llwritedb(satt[0].a_naine); 

nwritedbC’)))"): 

IIsqRinit((char *)0); 
if (hentestO == 0) { 
if (HnextgetO != 0) { 

IIretdom( 1 ,30,4,&g); 

} /* Ilnextget */ 

IIsqFlush((char *)0); 

) /* Hentest */ 

) 

1 = 0 ; 

if (g=0) { 

printf("NnPress ENTER to continue...”); 

a=getchar(); 

return; 

) 

/* # line 3171 "db.sc" */ /* host code */ 

if (IIcsrOpen((char *)0,"cursor_output","db2",0,temp_table) != 0) { 
nwritedb("retrieve("); 
for (select=0;select<n-l;select++) { 
nwritedb(satt[select].a_name); 

Uwritedb("="); 

nwritedb(temp_table); 

nwritedbC’."); 

n writedb(satt[select] . a_name) ; 
nwritedbC’,"); 

) 

nwritedb(satt[select].a_name); 

nwritedb(”=”); 
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n writedb(temp_table ); 

IlwritedbC'."); 

IIwritedb(satt[select].a_name); 

nwritedb(’T); 

IIcsrQuery((char *)0); 

) /* ncsrOpen */ 
printf("\n"); 
look_more=0; 

1 = 0 ; 

if (g=0) { 
look_more=l; 

) 

/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 

while (look_more = 0) { 

if (IIcsrFetch((char *)0,"cursor_output","db2”) != 0) { 
if (desired_tuple = 1)| 
printf("record id %d V,l+1); 

) 

for (i=0;i<n;i++) | 

if (strcmp(satt[i].data_type,"c20")=0) | 
lIcsrRet(l ,32,0,char_value); 
if (desired_tuple == 1){ 
printf("%s : %s",satt[i].a_name,char_value); 

) 

) 

if (strcmp(satt[i].data_type,"integer")==0) | 

IIcsrRet( 1 ,30,4,«&integer_value); 
if (desired_tuple == 1)| 

printf("%s : %d ",satt[i].a_name,integer_value); 



) 

if (strcmp(satt[i].data_type,"float")==0) { 

IIcsrRet( 1 ,3 1 ,4,&real_value); 
if (desired_tuple == 1){ 

printf("%s : %8.2f ",satt[i].a_name 4 'eal_value); 



) 

if (strcmp(satt[i].data_type,"image")=0) { 
IIcsrRet( 1 ,30,4,&media_value); 
if (desired_tuple == 1){ 
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/* image_id=media_value;*/ 

printf("%s id is %d ",satt[i].a_name,media_value); 

) 

I 

if (strcmp(satt[i].data_type,"sound")==0) { 

UcsrRet( 1 ,30,4,&medial_value); 
if (desired_tuple == 1) { 
sound_id=medial_value; 
printf("%s %d",satt[i].a_name4Tiedial_value); 



I 

)/*end for select n*/ 

IIcsrEFetch((char *)0); /* fetch the next record to the cursor */ 

1++; /♦ increment 1 as the counter ♦/ 
if (l=g) { /* check if no more data to print ♦/ 

look_more =1; /* exit of the loop */ 

) 

) /* IIcsrFetch */ 

) /♦ end while ♦/ 

ncsrClose((char *)0,"cursor_output","db2"); /* close the cursor */ 
retum(sound_id); 



3f( % 3f( 3k 3f( 3k 3ft 3k 3ft 3|C 3fc 3ft 3k % 3ft 3ft 3f( 3fc 3f( 3|( 3ft 3k 3f( 4( ♦ % 3f( 3f( 4c % 3|C 3|( % % 4c 3f( 3f( 3(C 4c 3k % 3k 



This function calls the function print_result_table and then queries the user if he wants 
to display any media data. 

4<4c>t<4«<<<*<***4c«4MKift4<**4<4><tc4c4<4<4<<«<4<4<4>4<<«c4«t<4>4<4>4c<tc4<4<4c*4<*4««<4c4<>t>4<4<4<4<>t>4<4<4<>t>4<4<4<4<*4<4<4<4<^ 

ql_printdata(temp_table) 
char temp_table[20]; 



( 

int image_id=0; 
int sound_id=0; 

int c=0,j=04c=04=0,temp,select=0; 
char char_value[21],a, Ans; 
char file_name[20]; 

int integer_value,media_value, found, medial_value; 

float real_value; 

int record_id, flag=FALSE; 

int i=0; 

c=print_result_table(temp_table, flag, c); 
flag=TRUE; 
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for (k=0;k<n;k++) { 

if ((strcmp(sattDc].data_type,"image")=0)ll(strcmp(satt[k].data_type,"sound’’)==0)) | 
if (strcmp(satt[k] .data_type ,"image")=0) 
printfC'ViDo you want to display any media data ? (y/n)"); 
if (strcmp(satt[kJ.data_type,"sound'')=0) 
printf("\nDo you want to display any media data ? (y/n)"); 
Ans=yes_no_answer(); 
if ((Ans==121)ll(Ans=89)){ 
for (k=0;k<n;k++) { 

if (strcmp(satt[k].data_type,"image")=0) { 

Ans =121; 

while ((Ans = 121) II (Ans == 89)) { 

if (01)1 

printf("\nNnWhich tuple’s image do you want to see? (enter record id) :"); 

scanf("%d", &record_id); 

getcharO; 

printf("record_id — > %d", record_id); 

) 

if (c==l) 
record_id=l; 
if (c==0) 
goto final; 
j = record_id - 1; 

image_id=get_image_id(j,image_id); 
for (i=0;i<n;i++) { 

if (strcmp(satt[i].data_type,"image")=0) | 
strcpy(table_array[table_index].table_name, satt[i].t_name); 
found = check_table_name(); 
table_cursor = table_entry; 
strcpy(media_name,satt[i].a_name); 
get_media_name(); 

display_photo(i,j,temp_table,image_id); 

I 

) 

printf("SnDo you want to see more image data ? (Y/N) :"); 

Ans=yes_no_answer(); 
if ((Ans==121)ll(Ans=89)) 
print_result_table(temp_table,flag); 
if ((Ans==110)ll(Ans=78)) 
goto next; 

) 

) 
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next: 

for (k=0;k<n;k-H-) { 

if (strcmp(san[k].data_type,"sound")=0) { 

Ans =121; 

while ((Ans == 121) II (Ans == 89)){ 
print_result_table(temp_table, flag); 
if (c>l){ 

printf("\n Which tuple’s sound do you want to hear? (enter record id) :"); 
scanf("%d”, &record_id); 

) 

if (c==l)( 
record_id=l; 

) 

if (c==0) 
goto final; 
j = record_id - 1; 

sound_id=get_sound_id(j,sound_id); 
for (i=0;i<n;i++) { 

if (strcmp(satt[i].data_type,"sound")==0) { 
printf("\nSound management"); 

strcpy(table_array[table_index].table_name, satt[i].t_name); 

found = check_table_name(); 

table_cursor = table_entry; 

strcpy(media_name,satt[i].a_name); 

get_media_name(); 

display_sound(i j ,temp_table, sound_id) ; 

I 

I 

printf("\nDo you want to hear more sound data ? (Y/N) :"); 
Ans=yes_no_answer(); 

) 



}/* end if ans=121 (the one at the top) */ 
else 
k=900; 

)/*end if strcmp(datatype=image or sound) */ 
}/* end for k<n (top one ) */ 

/*printf("\n");*/ 

/* Drop table result after finished print */ 
/*drop_table(temp_table);*/ 
final; 



187 



drop_temp_media_tables(); 

} 

% :(c 4c ^ ♦ ♦ ♦ ♦ ♦ ♦ ♦ % 4c 

This function drops a table in INGRES. 

4c 4c 4( 4( 4( 4( % 4< 4( 4( 4c 4( % % 4( 4( 4( % 4( 4( 4( 4( 4( 4( 4( 4( 4( 4( % 4( 4( 4( 4( 4( 4( 4( 4( 4( 4( 4( 4( ^ 



drop_table(table_name) 
char table_name[20]; 

{ 

I 

Ilsqlnit((char *)0); 
IlwiitedbC’destroy ”); 
nwritedb(table_name); 
nsqSync(0,(char *)0); 

) 



) 

This function initializes an array upto size 100. 

^nnk******************* f 

init_buffer(bufferj) 
char buffer[100]; 
int j; 

I 



int i; 

for (i=0;i<j;i++) | 
buffer[i] = 

) 



^4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



This function drops the temporary media tables used to hold the intermediate results of 
a query. 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4< 4c 4c 4c 4c 4c 4c 4c 4c 4c^ 

drop_temp_media_tables() 

{ 



int k; 
char 1[5]; 

char tempstring[100]; 
for (k=0; k<10; k++){ 
strcpy(tempstring, "p’’); 
inttostr(k4); 
strcat(tempstring,l); 
nsqlnit((char *)0); 
nwritedbC'destroy "); 
nwritedb( tempstring); 
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IIsqSync(0,(char *)0); 
init_buffer(tempstring, 1 00); 
init_buffcr(l,5); 

} 



3k * % ♦ ak * 3f< % % % % 3(( 3|C * 3k % * * * % * 

This function asks the user to enter a join condition. 

3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k>k3k3k3k%3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k3k^ 



void help_join() 

I 

int i=0; 

if (m> 1) { 

strcpy(join_condition,"?"); 
while (strcmp(join_condition,"?")==0) { 
printf("NnPlease enter your join conditionNn(<?> for help!) 
gets(join_condition); 
if (strcmp(join_condition,"?")=0) | 
for (i=0;i<in;i++) { 
printf('ViTable %s ",stab[i].t_name); 
p_att(stab[i] .t_name); 

) /* end for loop */ 

) /* end if need help for join */ 

}/*end while*/ 

) /* end if more than 1 table select */ 



^3k 3k 3k 3k 3k 3k 3k 3k % 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k % 3k 3k 3k 3k 3k 3k 3k 3k 3k ^ 



:•’); 



This user asks the user to enter three temp table names for intersection. 



jk 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k ^ 



char get_temp_table_names_for_intersection(temp_table 1 ,temp_table2,temp_table) 
char temp_tablel[20j; 
char temp_table2[20]; 
char temp_table[20J; 

I 

printf("\nEnter first temp table name :"); 
gets(buff); 

strcpy(temp_tablel, buff); 
init_buffer(buff, 1 00); 

printf("NnEnter second temp table name :"); 
gets(buff); 

strcpy(temp_table2, buff); 
init_buffer(buff, 100); 

printf("NnEnter another temporary table name to hold the result ;"); 
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gets(buff); 

strq)y(teinp_table, buff); 
init_buffer(buff , 100); 

retum(temp_tablel, temp_table2, temp_table); 



aH 3k 9k ak a|< ♦ ak ak ak ♦ 4( ak ak ak ♦ 3k ♦ ♦ ak 3k ak ak 3|< 3k 3k ak ak ak ak 3fc 3fc ak 

This function shows the intersect/union/minus menu. 

4c 4( ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ♦ ak ak :k ak ak ak ak ak ak ^ 



char intersect_union_menu(answer) 
char answer; 

I 

answer = ’?’; 

/* while (!( ’0’<= answer && answer <= ’3’)) 

{*/ 

clr_scr(); 

printf("NnIf you want to intersect / union / minus any two temporary tables:Nn"); 

printf C'^l ====' — -in=r=- : - ^ LiuN n” ); 

printf(’VN<l. INTERSECT two tables"); 
printf("\n\t2. UNION two tables"); 
printf("\n\t3. MINUS"); 
printf("ViNiO. Quit"); 

printf("\ri\t ====== = -----===V ); 

piintf('VNtSelect your choice :: "); 

answer = getchar(); 

while ((c = getcharO) != ’Sn’) 

; /* Not return do nothing */ 

/* I ♦/ 

return (answer); 



) 

Itcili Id lie* 4t * 4II|CI|C]K« :«<4<]K ]|< 4t ««**««« iK *1K 4t 4ci)< «***«* IK « 4c 

This function asks the user if he wants to union/intersect/minus any two tables and p[uts 
tlie result in temp_table. 

4cakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakakak^ 

query_for_intersect_union(choice,temp_tablel,temp_table2,temp_table) 

char choice; 

char temp_tablel[20]; 

char temp_table2[20]; 

char temp_table[20j; 



choice = ’?’; 
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clr_scr(); 

while (choice != ’O’) 

I 

choice = intersect_union_menu(choice);/* print the choice for user select on screen 

*/ 

switch(choice) /* User select case */ 

{ 

case ’1’ : /* create table */ 

clr_scr(); 

printf("VnYour Selection is INTERSECT"); 

printf("\nHit Return to continue! (Any other key to QUIT!)"); 

if (getcharO != ’Nn’) 

( 

getcharO; /* To let next getchar() work well */ 
break; 

) 

get_temp_table_names_for_intersection(temp_tablel, temp_table2, 

temp_table); 

printf("^n*** The result of the INTERSEC I'lON will be kept in 
temp_table*** %s ***'^", temp_table); 

intersect_tables(temp_tablel, temp_table2, temp_table); 
ql_printdata(temp_table); 
break; 
case ’2’ : 

clr_scr(); 

printf("\nYour Selection is UNION"); 

printf("NnHit Return to continue! (Any other key to QUIT!)"); 
if (getcharO != ’Nn’) 

{ 

getcharO; /* To let next getcharO work well */ 
break; 

1 

get_temp_table_names_for_intersection(temp_table 1 , temp_table2, 

temp_table); 

printf("Nn*** The result of the UNION will be kept in temp_table*** %s 
***\n’\ temp_table); 

union_tables_for_demo(temp_tablel, temp_table2, temp_table); 

ql_printdata(temp_table) ; 

break; 

case ’3’ : /* create table */ 

clr_scr(); 

printf("^nYour Selection is MINUS"); 

printfC^jiHit Return to continue! (Any other key to QUIT!)"); 
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if (getcharO != ’Nn’) 

{ 

getcharO; /* To let next getcharO work well */ 
break; 

} 

get_temp_table_names_for_intersection(temp_table 1 , temp_table2, 

temp_table); 

printfC'Vn*** The result of the hfiNUS will be kept in temp_table*** %s 
***\n", temp_table); 

minus(temp_tablel, temp_table2, temp_table); 

ql_printdata(temp_table); 

break; 



case ’0’ : 



clr_scr(); 

printf("\nHit Return to continue! (Any other key to QUIT!)"); 
if (getcharO != 

I 

getcharO; /* To let next getcharO work well */ 
break; 

} 

break; 

) /* End of switch */ 

) /* End of while choice != ’0’ */ 
retum(choice); 
retum(temp_table 1 ); 
retum(temp_table2); 
retum(temp_table); 

) 

^#^C^t*^l*^C*^l**^t*^t^t^t^t^t^t^t^l^t^t************* 



This function displays the Retrieval operations menu 

^ ♦♦ ♦ 3k ♦ 9k ♦♦♦ ♦♦♦♦♦♦ ♦♦♦♦♦♦ 3k ♦ 4c ^ 

char show_utility_menu(answer) 
char answer; 

I 



answer = ’?’; 

/* while (!( ’0’<= answer && answer <= ’4’)) 

IV 

clr_scr(); 

printf("\nNtRetrieval Operations MenuNn"); 
printf(''M == = ====== == === =Nn"); 

printf('VNtO. Simple Condition"); 
prmtfCVNil. tablel where EXISTS table2"); 
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printf("NriNt2. table 1 where NOT EXISTS table2"); 
printf("NnNt3. table 1 IN table2"); 
printf(''VriSt4. tablel NOT IN table2"); 
printf(''\n\l = = == = ====~===== = == ==\n"); 

printf("\nNtSelect your choice :: "); 

answer = getchar(); 

while ((c = getcharO) != ’Nn’) 

; /* Not return do nothing */ 

/* ) */ 

return (answer); 



4c % % 4c 4c 4c ♦ 4c 4c4c % % % % % % % % % % % % 4f % % 4c 4c 4c % % % % 4c% % %% %% % % 4c % % % % % 



Ths function calls the function show_utility_menu and calls other functions to process the 
user’s choice. 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4( 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c j 



utility_menu(choice,temp_table 1 ,temp_table2,temp_table) 

char choice; 

char temp_tablel[20]; 

char temp_table2[20]; 

char temp_table[20]; 



choice = ’?’; 
clr_scr(); 



/♦ while (choice != ’O’) 

{*/ 

choice = show_utility_menu(choice);/* print the choice for user select on screen */ 
switch(choice) /* User select case */ 

I 

case ’1’ : /* create table */ 

clr_scr(); 

printf("\nYour Selection is tablel where EXISTS table2"); 
printf("VnHit Return to continue) (Any other key to QUIT!)"); 
if (getcharO != ’Nn’) 

I 

getcharO; /* To let next getcharO work well */ 
break; 



printfC'NnEnter the temp table name related to EXISTS :"); 
gets(buff); 

strcpy(temp_table2, buff); 
init_buffer(buff , 1 00); 
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printf(’VPlease enter your join conditionNnbetween "); 
if (m==l) 

printf("%s and ", temp_tablel); 
if (m>l) 

printfC'the appropriate table and "); 
printf("** %s ** temp_table2); 

gets(buff); 

strq>y(join_for_nested, buff); 
init_buffer(buff, 1 00) ; 
break; 
case ’2’ : 

clr_scr(); 

printf("NnYour Selection is tablel where NOT EXISTS table2"); 
printf("\nHit Return to continue! (Any other key to QUIT!)"); 
if (getcharO != ’Vi’) 

( 

getcharO; /* To let next getchar() work well */ 
break; 

) 

printf("\nEnter the temp table name related to NOT EXISTS :"); 
gets(buff); 

strcpy(temp_table2, buff); 
init_buffer(buff , 100); 

printf("VnPlease enter your join conditionNnbetween "); 
if (m=l) 

printf("%s and ", temp_tablel); 
if (m>l) 

printfC’the tqjpropriate table and "); 
printfC’** %s *♦ temp_table2); 
gets(buff); 

strcpy(join_for_nested, buff); 
init_buffer(buff , 100); 
break; 
case ’3’ : 

clr_scr(); 

printf("\nYour Selection is tablel IN table2"); 
prinlf("\nHit Return to continue! (Any other key to QUIT!)"); 
if (getcharO != "Nn’) 

( 

getcharO; /* To let next getcharO work well */ 
break; 

I 

printf("\nEnter the temp table name related to IN ;"); 
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gets(buff); 

strcpy(temp_table2, buff); 
init_buffer(buff , 100); 

printf("ViNnEnter attribute for "); 
if (m=l) 

printfC'table %s", temp_tablel); 
if (m>l) 

printf("the appropriate table"); 
printfC for condition of IN :"); 
gets(buff); 

strcpy(condition_for_nested, buff); 
init_buffer(buff,100); 

printf("\nSnTable ** %s **", temp_table2); 
printf("\nSELECT ATTRIBUTE (only one attribute!) :"); 
gets(buf0; 

strcpy(attribute_for_nested, buff); 
init_buffer(buff , 100); 
break; 
case ’4’ : 

clr_scr(); 

printf("^Your Selection is table 1 NOT IN table2"); 
printf("\nHit Return to continue! (Any other key to QUIT!)"); 
if (getcharO != ’Nn’) 

( 

getcharO; /* To let next getchar() work well */ 
break; 

) 

printf("\nEnter the temp table name related to NOT IN :"); 
gets(buff); 

strcpy(temp_table2, buff); 
init_buf fer(buff , 100); 

printf('Vi\nEnter attribute for "); 
if (tn=l) 

printfC'table %s", temp_tablel); 
if (m>l) 

printfC'the appropriate table"); 
printf(" for condition of NOT IN :"); 
gets(buff); 

strcpy(condition_for_nested, buff); 
init_buffer(buff, 100); 
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printf("Nri\nTable ** %s **", tenip_table2); 
printf("\nSELECT ATTRIBUTE (only one attribute!) 
gets(buff); 

strq>y(attribute_for_nested, buff); 
init_buffer(buff,100); 
break; 
case ’0’ : 

clr_scr(); 

printf("SnYour Selection is NORMAL RETRIEVAL"); 
printf("NnHit Return to continue! (Any other key to QUIT!)"); 
if (getcharO != ’\n’) 

I 

getcharO; /* To let next getchar() work well */ 
break; 

I 

break; 

) /* End of switch */ 

/♦ I*/ /* End of while choice != ’0’ */ 



retum(choice); 
retum(temp_table 1 ); 
retum(temp_table2); 
retum(temp_table); 

I 

%%%% %%%%)((% %%% %%%%%% %%%%% i|( %% % 



This function checks if any attributes with aggregate functions exist in the attributes 
entered by the user. 

4c Hi Ht »( 4t 4t Ht * 4c 4c * Kc * 4c 4c ** * « 4c He * * 4c * He * * 4c * H<y 



char check_aggregate(buffer, tmp, aggregate_found) 
char buffer[13]; 
char tmp[3]; 

I 

int i = 0; 



int jj = 0; 

for (jj=0;jj<3;jj-H-){ 
if (buffer[i]=^0){ 
/* tmp(jj]=’\0’;*/ 

jj=1000; 

I 

else{ 

tt«Pljj]=buffer[i]; 
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i++; 

} /* end for jj < 3 */ 
tnip[3]=’M)’; 

i f 

((strcmp(tmp,"cnt")==0)ll(strcmp(tmp,"suin")==0)ll(strcmp(tmp,"avg")==0)ll(strcmp(tmp 
,"min")=0)ll(strcnip(tmp,"max")=0)){ 
aggregate_found=TRUE; 

) 

retum(aggregate_found); 



It* iK 4* ♦ >(( >l< iK 4n|( ^ 4* 3(< ^ ^ ^ ^ ^ ^ 



When there is an aggregate function among tlie attributes entered by the user, this 
function separates die attribute from the aggregate part. 

j|f ]f( ]|o|( ]f( Iff jft ]f( ]|( ]|( j|f i|( 3|( m ifnt* *t* *f< *t* *|( >|( *t< 4* 4* 4* *1* 4* *t* *t< % *1* *l< *t* *t< *t* *t* *t< *1* *t< ^ 



char get_attribute(buffer, attribute) 
char buffer[13]; 
char attribute[13]; 

I 

int i = 4; 
int j; 

for (j=0:j<13;j++)| 
if (buffer[i]==41){ 
attribute|j]= 
j=100; 

) 

else{ 

attribute[j]=buffer[i] ; 

} 

i=i+l; 

) /* end for j < 13 */ 
retum(attribute); 



y ** i|< ** 4> 4> 4< ****■)<«■•• >X 4< 4< *«>)<* If ■•< f >X 4< If « If* If If « >X If i|< 4< 



When mod is modify mode (MOD_MODE) this function is the main function calling 
other other functions to delete the tuples from the related media tables. 

4c 4( 4< 4( K( 4( 4( 4< ]|M(( ]|( 4ci(( ]|( 4* 4* 4* 4* 4* ^ 

void delete_for_modify(r) 
int r; 

I 



int j=0Jk=0d=0,temp; 
char char_value[21],a; 
char file_name[20]; 

int integer_value 4 nedia_value,found,medial_value; 
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int im_value, so_value; 
int desired_tuple; 
float real_value; 
int i=0,select=0; 
int c=0; 

desired_tuple=r; 

printf("VnTuple # %d is being deleted now desired_tuple+l); 
sleep(2); 

/* # line 3169 "db.sc" */ /* select */ 

I 

nsqlnit((char *)0); 

nwritedb("retrieve unique(c=(count("); 
nwritedb(temp_table); 
nwritedbC’."); 

II writedb(s att f 0] . a_name) ; 
nwritedbC')))"); 
nsqRinit((char *)0); 
if (nerrtestO = 0) { 
if (HnextgetO != 0) ( 

IIretdom( 1 ,30,4,&c); 

) /* Unextget */ 
llsqFlush((char *)0); 

) /* Dentest */ 

) 

1 = 0 ; 

if (c==o) { 

printf("\nPress ENTER to continue..."); 
a=getchar(); 
return; 

/* # line 3171 "db.sc" */ /* host code */ 

if (ncsrOpen((char *)0,"ciu‘sor_output","dbr’,0,temp_table) != 0) { 
nwritedbC'retrieve ("); 
for (select=0;select<n-l;seIect++) { 
nwritedb(satt[select].a_name); 
nwritedb("="); 
n writedb(temp_table ); 

nwritedbC’."); 

nwritedb(satt[select] .a_name); 
nwritedbC’,"); 

) 

nwritedb(satt[select] .a_name); 

Uwritedb(’’=’’); 
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IIwritedb(temp_table); 

nwritedbC'."); 

IIwritedb(satt [select] .a_name ); 
nwritedbC’)"); 

IIcsrQuery((char *)0); 

) /* IlcsrOpen */ 
printf(”\n"); 
look_more=0; 

1=0; 

if (c==0) { 
look_more=l; 

) 

/* Fetch the cursor to the temp_tablerelation which is the intermediate table 

hold the temp_tablefrom the query, then print out the tuple one at a time untU no 
more record to print to the user */ 
while (look_more = 0) | 

if (ncsrFetch((char *)0,"cursor_output","dbl") != 0) { 
if (desired_tuple == 1) { 
printfC’record id %d V’4+1); 

) 

for (i=0;i<n;i++) { 

if (strcmp(satt[i].data_type,"c20")=0) { 
ncsrRet( 1 ,32,0,char_value); 
if (desired_tuple == 1) 

printf("%s : %s",satt[i].a_name,char_value); 

) 

if (strcmp(satt[i].data_type,"integer")=0) { 

DcsrRet( 1 ,30,4,&integer_value); 
if (desired_tuple = 1) 

printf("%s : %d ’’,satt[i].a_name,integer_value); 

) 

if (strcmp(satt[i].data_type,"float'')==0) { 
ncsrRet(l ,3 1 ,4,&real_value); 
if (desired_tuple = 1) 

printf("%s : %8.2f ",satt[i].a_name,real_value); 

) 

if (strcmp(satt[i].data_type,"image")=0) { 

HcsrRet( 1 ,30,4,&media_value); 
if (desired_tuple = 1){ 
im_value=media_value; 

printf("%s id is %d '',satt[i].a_name 4 nedia_value); 

) 

) 
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if (strcmp(satt[i].data_type,"sound")=0) { 

UcsrRet(l ,30,4,&medial_valuc); 
if (desired_tuple = 1)| 
so_value=medial_value; 
printf("%s %d",satt[i].a_name,medial_value); 

) 

) 

) /* end for select < n*/ 
printf("Vn"); 

UcsrEFetch((char *)0); /* fetch tlie next record to tlie cursor */ 

1++; /* increment 1 as the counter */ 
if (l=c) { /* check if no more data to print */ 

look_more =1; /* exit of the loop */ 

) 

) /* HcsrFetch */ 

) /* end while */ 

UcsrClose((char *)0,"cursor_output","dbr’); /* close the cursor */ 
printfC’Prcss ENTER to continue 
a= getcharO; 

/* this for the check for the media selection */ 
if (c==0) 

i=9999; /* if no record for the media data not process any thing */ 
for (i=0;i<n;i++) { 

if (strcmp(satt[i].data_type,''image")=0) | 
if (image_flag=TRUE) { 

strcpy(table_array[table_index].table_name, satt[i].t_name); 
found = check_table_name(); /* search for the media name */ 
table_cursor - table_entry; 
strcpy(media_name,satt[i].a_name); 
get_media_name(); 

printf("\nThe media data from the media table *** %s *** is being deleted 
now...", media_name); 
sleep(4); 

mod _get_rid_image(i, im_value); 

) 

) 

if (strcmp(satt[i].data_type,"sound")==0) { 
if (sound_flag==TRUE) { 

strcpy(table_array[table_index].table_name, satt[i].t_name); 
found = check_table_name(); 
table_cursor = table_entry; 
strcpy(media_name,satt[i].a_name); 
get_media_name(); 
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printf("^nThe media data from tlie media table *** %s *** is being deleted 
now...", media_name); 
sleep(4); 

mod_get_rid_sound(i, so_value); 

) 

) 

) /* end for select < n*/ 



printf('V'); 

) 

Jfc ](C % 

When mode is MODIFY, this function gets sound file attributes from the related media 
table. 



♦ 4 ( 4 ( % 3(( )(< 3<( )(( 3|( ♦ ^ 3f( 3(C ](( ]f( ](( 4c)(( Jfcfclc ^ 



get_snd_file_atts(media_name, i, value) 
STR_name media_name; 
int i; 
int value; 

( 

int entry; 

char sound_value[20]; 



int att_cursor; 
int desired_tupleno; 
char query_phrase[DESCRLEN+l], 
in_phrase[DESCRLEN+l]; 

int j=0, k, c, pid, query_erx, queiy_len, in_len, f_flag4ook_more=0; 

char ISfri5[HLENAMELEN+l]; 
char ISdescrl[DESCRLEN+l]; 
int ISerror; 

STR_path file_name; 

STR_descrp nothing; 

char temp_file[100]; /* Declare more to avoid bus error */ 

int show_pid, wait_pid; 

union wait status; 

int sid = 0; 

int pp=0; 

int qq=0; 

int res=0; 

int sz=0; 

int s_rate=0; 

int enc; 
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int dur=0; 



inttostr(value, sound_value); 

I 

Ilsqlnit ((char *)0); 

llwritedb( "retrieve unique(pp=(count("); 

IIwritedb(temp_table); 

nwritedbC’."); 

nwritedb(satt [i] .a_name); 

nwritedbC’)))"); 

IIsqRinit((char *)0); 
if (llerrtest()==0) | 
if (HnextgetO !=0) | 

Uretdom( 1 ,30,4,&pp); 

} 

nsqFlush((char *)0); 

I 



I 

if (IlcsrOpen((char *)0,"cursor_output8","db3",04nedia_name) != 0) { 
nwritedb("retrieve(ISfii5="); 
nwritedb(media_name); 
nwritedbC’."); 
nwritedb(’’f_id,ISdescrl="); 
nwritedb(media_name); 
nwritedb(".descrp,"); 



nwritedb(’’res=" ); 
nwritedb(media_name); 
nwritedb(’’.’’); 
nwritedb("resolution,'’); 



nwritedb("sz=’’); 

nwritedb(media_name); 

nwritedb(’’.’’); 

nwritedb(’’size,’’); 

nwritedb(’’s_rate=’’); 
n writedb(media_name) ; 
nwritedb(".’’); 
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IIwritedb(" samp_r ate 

nwritedb("enc=" ); 

nwritedb(media_name); 

nwritedbC’.'’); 

IIwritedb("encoding, "); 

nwritedbC' sid="); 

Uwritedb(media_name); 

nwritedbC’."); 

nwritedb("s_id,"); 

nwritedbC' dur="); 
nwritedb(media_name); 
nwritedbC’."); 
nwritedbC'duration"); 

nwritedbC’)"); 
nwritedbC’ where ’’); 
nwritedb(media_name); 
nwritedbC’ .s_id=’’); 

Uwritedb(sound_value); 

UcsrQuery ((char *)0); 

) 

) 

pp=l; 

I 

while (look_more==0) { 

if (UcsrFetch((char *)0, ’’cursor_output8’’,’’db3") 1= 0) { 

ncsrRet(l ,32,0,ISfn5); 
ncsrRet(l,32,0,ISdescrl); 
ncsrRet(l ,30,4,&res); 
ncsrRet(l ,30,4,«fesz); 
ncsrRet( 1 ,30,4,&s_rate); 
ncsrRet(l ,30,4,&enc); 
ncsrRet( 1 ,30,4,«fesid); 
ncsrRet( 1 ,30,4,&dur); 

strcpy(fde_name, ISfn5); 
strcpy(snd_record[snd_index].f_id, file_name); 
strcpy(descrp, ISdescrl); 
strcpy(snd_record[snd_index] .descrp, descrp); 
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snd_record[snd_index] .resolution = res; 
snd_record[snd_index].size = sz; 
snd_record[snd_index].samp_rate = s_rate; 
snd_record[snd_index] .encoding = enc; 
snd_record[snd_index].s_id = sid; 
snd_record[snd_index] .duration = dur; 

snd_value[snd_index]=snd_record[snd_index] .s_id;/* */ 

att_array [att_cursor] . value_entry=snd_index ; 

printf("^n"); 

IIcsrEFetch((char *)0); 

qq++; 

if (qq=pp) { 
look_more = 1; 



I 

) 

ncsrClose((char *)0,"cursor_output8","db3"); 



init_buffer(sound_value, 20); 



^ % % % % % % :fc % 



When mode is MODIFY, this function gets the image file atts from the related media 
table. 

get_file_id(media_name, i, value) 

STR_name media_name; 
int i; 
int value; 

{ 



int entry; 
int att_cursor; 
int desired_tupleno; 
int k=0, j=0, look_more=0; 
char ISfnl[FILENAMELEN+l]; 
char ISdescrl[DESCRLEN+l]; 



char image_value[20]; 



int hght = 0; 
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int wdth = 0; 
int dpth = 0; 
int iid = 0; 

STR_path f_name; 

STR_descrp nothing; 

char temp_file[100]; /* Declare more to avoid bus error */ 

struct pixrect *pr; 

colormap_t cm; 

int show_pid, wait_pid; 

union wait status; 

int over_length = TRUE; /* Initialize to true */ 

cm. type = RMT_NONE; /* this is absolutely necessary! Odierwise */ 

cm.length = 0; /* pr_load_colormap might not allocate storage */ 

cm.map[0] = NULL; /* for the colormap, if the garbage found in */ 

cm.map[l] = NULL; /* the cm structure seems to make sense. The */ 

cm.map[2] = NULL; /* result, of course, is segmentation fault. */ 



inttostifvaluc, image_value); 

I 

Ilsqlnit ((char *)0); 

IlwritedbC’retrieve unique(k=(count(" ); 

IIwritedb(media_name); 

nwritedbC’."); 

IIwritedb("i_id"); 

nwritedbC’)))"); 

UsqRinit((char *)0); 
if (llerrtest()=0) { 
if (HnextgetO |s=0) { 
nretdom( 1 ,30,4,&k); 

) 

IIsqFlush((char *)0); 

} 

) 

{ 

if (IIcsrOpen((char *) 0 ,"cursor_outputr’,"db", 04 nedia_name) != 0) ( 
nwritedbC retrieve(ISfiil="); 
nwritedb(media_name); 
nwritedbC’."); 
nwritedb(’’f_id,ISdescrl=’’); 
nwritedb(media_name); 
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nwritedb(" .descrp,"); 



nwritedb("hght=’’); 

IIwritedb(media_name); 
UwritedbC'."); 
n writedb("height," ); 

nwritedb("iid=’’); 

nwritedb(media_name); 

nwritedbC'."); 

nwritedb("i_id,"); 

Uwritedb("wdth="); 

nwritedb(media_name); 

nwritedbC'."); 

nwritedbC'width,"); 



nwritedb("dpth="); 

nwritedb(media_name); 

nwritedbC'."); 

nwritedbC'depth"); 

nwritedbC')"); 
nwritedbC where "); 
nwritedb(media_name); 
nwritedbC'."); 
nwritedb("i_id"); 
nwritedb("="); 
nwritedb(iniage_value); 
ncsiQuery ((char *)0); 

) 

I 

k=l;/* */ 

{ 

while (look_more=0) ( 

if (UcsrFetch((char *)0, "cursor_outputl","db") != 0) { 
ncsrRet(l,32,0,ISfnl); 
ncsrRet(l,32,0,ISdescrl); 

ncsrRet( 1 ,30,4,&hght); 
ncsrRet( 1 ,30,4,&iid); 
ncsrRet( 1 ,30,4,&wdth); 
ncsrRet( 1 ,30,4,&dpth); 
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strqjy(f_name, ISfnl); 

strcpy (img_record[img_index] . f_id , f_name ); 
strq)y(descrp, ISdescrl); 
strq?y(img recordfinig indexl.descrp. descrp); 
img rccordrimg indexl.height = hght; 
img_record| img_index].i_id = iid; 
im g record|im g indexl.width = wdth; 
img_record[img_mdex].depth = dpth; 

/♦ ♦/ 

img_value[img_index]=img_record[img_index].i_id; 

att_array[att_cursor].value_entry=img_index; 

/* *! 

printf("\n"); 

UcsrEFetch((char *)0); 

j++; 

if 0'=k) I 

look_more = 1; 



) 



) 



) 

IlcsrClose((char *)0,"cursor_outputl ","db"); 

I 



/* printf(’'\nimg_record[img_index].i_id =>%d".img recordfirng indexl.i id); 
printf("^nimg_record[img_index].f_id =>%s",img_record[img_index].f_id); 
printf("^nimg_record[img_index].descip =>%s",img_record[img_index].descip); 
sleep(l);*/ 

init_buffer(image_value, 20); 



« XcDcXc « He **«>««*« * «>(<**« 



When mode is modify, this function helps user modify the tuples in the result table one 
by one. 

% % % % % 4c 4c % % Ik ♦ 3k 3|c 4c 4c 4c sfok )(( )(( ^ 



process_tuple_by_tuple(r) 
int r; 



int entry; 

int desired_tuple; 

char c_temp[60]; 

int count=0; 

int j=0Jc=0, 1=0, temp; 

char char_value[21],a; 

char £ile_name[20]; 
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int img_value, snd_value; 

int integer_value,media_value, found, medial_value; 
float real_value; 
int i=0,select=0; 
int g=0; 
int d; 

i_value [ i_index]=0; 
desired_tuple=r; 

printf("\nTuple to be modified :: Tuple # %d ", desired_tuple+l); 
sleepO); 

/* # line 3169 "db.sc" */ /* select */ 

I 

Ilsqlnit((char *)0); 

IIwritedb("retrieve(g=(count("); 

Uwritedb(temp_table); 

Uwritedb("."); 

Uwritedb(satt[0].a_name); 

Uwritedb(")))"); 

UsqRinit((char *)0); 
if (IlentestO == 0) | 
if (HnextgetO != 0) { 

Uretdom( 1 ,30,4,&g); 

) /* Ilnextget */ 

IIsqFlush((char *)0); 

} /* nerrtest */ 

) 

1 = 0 ; 

if (g=0) { 

printf("\nPress ENTER to continue..."); 

a=getchar(); 

return; 

I 

/* # line 3171 "db.sc" */ /* host code ♦/ 

if (ncsrOpen((char *)0,"cursor_output","db2",0,temp_table) != 0) { 
IIwritedb("retrieve("); 
for (select=0;select<n-l;select++) | 

Uwritedb(satt [select] .a_name); 
nwritedb("="); 

IIwritedb(temp_table); 

nwritedb("."); 

IIwritedb(satt[select].a_name); 

nwritedbC',"); 
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IIwritedb(satt[select] .a_name); 
nwritedb("="); 
nwritedb(temp_table); 
nwritedbr."); 

nwritedb(s att [select] . a_name); 
nwritedbC')"); 

IIcsrQuery((char *)0); 

) /* DcsrOpen */ 
printf("Nn"); 
look_more=0; 

1 = 0 ; 

if (g=0) { 
look_more=l; 

) 

table_cursor = table_entry; 
count=0; 

count = table_array[table_list[table_cursor]].att_count; 

att_cursor = table_array[table_list[table_cursor]].att_entry; 

act_media_count = 0; 

i_index=0; 

c_index=0; 

/* Fetch the cursor to the result relation which is the intermediate table 
hold the result from the query, then print out the tuple one at a time 
until no more record to print to the user */ 

while (look_more = 0) | 

if (IIcsrFetch((char *)0,"cursor_output","db2") != 0) ( 
if (desired_tuple = 1)| 
printfC'record id %d Y’,1+1); 

) 

for (i=0;i<n;i++) { 

if (strcmp(satt[i].data_type,"c20")=0) | 

IIcsrRet( 1 ,32,0,char_v^ue); 
if (desired_tuple == 1)| 
printf("%s : %s",satt[i].a_name,char_value); 
strcpy(c_temp, char_value); 
strcpy(c_value[c_index], c_temp); 
att_array[att_cursor].va]ue_entry = c_index; 
c_index = (c_index + 1) % 20; 
att_cursor = att_array[att_cursor].next_index; 

) 

) 

if (strcmp(satt[i].data_type,"integer")=0) { 
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IIcsrRet( 1 ,30,4,&integer_value); 
if (desired_tuple == 1){ 

printf("%s : %d ”^att[i].a_name,integer_value); 

i_value[i_index]=integer_value; 

att_array[att_cursor].value_entiy = i_index; 

i_index = (i_index + 1) % 20; 

att_cursor = att_array[att_cursor].next_index; 

) 

) 

if (strcmp(satt[i].data_type,"float")=0) { 

UcsrRet( 1 ,3 1 ,4,&real_value); 
if (desired_tuple == 1){ 

printf("%s : %8.2f ",satt[i].a_name 4 ^eal_value); 

) 

) 

if (strcmp(satt[i].data_type,"image")=0) { 
lIcsrRet(l ,30,4,&media_value); 
if (desircd_tuple == 1){ 
img_value=media_value; 

printf(’’%s id is %d ",satt[i].a_name 4 nedia_value); 

) 

) 

if (strcmp(satt[i].data_type,"sound")==0) | 
ncsrRet( 1 ,30,4,&medial_value); 
if (desired_tupie == 1){ 
snd_value=medial_value; 
printf(" %s %d" ,satt [i] .a_name ^nedia l_value); 

) 

) 

)/*end for select n*/ 
printf("\n"); 

ncsrEFetch((char *)0); /* fetch the next record to the cursor */ 
1-H-; /* increment 1 as the counter */ 
if (l==g) I /* check if no more data to print ♦/ 
look_more =1; /* exit of the loop */ 

) 

) /* IIcsrFetch */ 

) /* end while */ 

ncsrClose((char *)0,"cursor_output","db2"); /* close the cursor */ 

printfC’Press ENTER to continue 
a= getcharO; 
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for (i=0;i<n;i++) { 

if (strcmp(satt[i].data_type,"image")=0) { 
strq)y(table_array[table_iiidex].table_name, satt[i].t_name); 
found = check_table_name(); /* search for the media name */ 
table_cursor = table_entry; 
strcpy(media_name,satt[i].a_name); 
get_media_name(); 

printf("NnTlie attribute values will be read from the media table %s", media_name); 
sleep(2); 

get_file_id(media_name, i, img_value); 
printfC'Press ENTER to continue 
a= getcharO; 

att_cursor = att_array[att_cursor].next_index; 

media_counter++; 

media_value=0;/* */ 

} 

if (strcmp(satt[i].data_type,"sound")==0) { 
strcpy (table_array [table_index J .table_name, satt[i] .t_name); 
found = check_table_name(); 
table_cursor = table_entry; 
strcpy(media_name,satt[ij.a_name); 
get_media_name(); 

printf("NnThe attribute values will be read from the media table %s", media_name); 
sleep(2); 

get_snd_file_atts(media_name, i, snd_value); 
printfC'Press ENTER to continue 
a= getcharO; 

att_cursor = att_array[att_cursor].next_index; 

media_counter++; 

medial_value=0;/* */ 

) 

) /* end for selea < n*/ 



) 

3k ♦ ♦ % 9|( 4c % 4c 4t 4c % 3k ♦ ♦ Ik ♦ 4c 

When mode is MODIFY, this function prints the number of tuples in the result table. 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4( 4c 4c 4( 4c 4( 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c j 

int print_for_modify(c) 
int c; 

I 

c=0; 

I* # line 3169 "db.sc" select */ 

{ 
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nsqlnit((char ♦)0); 

IIwritedb("retrieve(c=(count(" ); 

IIwritedb(temp_table); 

nwritedbC'."); 

Uwritedb(satt [0] .a_name); 

UwritedbC’)))"); 

IIsqRinit((char *)0); 
if (IlentestO == 0) { 
if (IlnextgetO != 0) { 

Uretdom( 1 ,30,4,&c); 

} /* Ilnextget */ 

IIsqFlush((char *)0); 

) /* Ilentest */ 

) 

printfCV*** THERE ARE %d RECORDS (TUPLES) TO BE MODIHED ***",c); 

printf('V(You will be queried for modifying each tuple)*'); 

sleep(3); 

retum(c); 

) 

^i|< * Id 4< i|< * * 4< 3t< >(< « « i|e 3t< « i« * 



When mode is modify, this function deletes the modified tuples from the tables. 

3fc 3|C 3|C 4c 3|C 3|C % 3|( % % % ♦ % % % % % 3(C y 



void delete_formatted_part_for_modify() 

I 

int i; 

printf("NnThe tuples that match the delete query are being deleted from table *** %s *** 
now" ,satt[0] .t_nann(e); 
printf("\nPress ENTER to continue"); 
a=getchar(); 
nsqlnit((char *)0); 

HwritedbC'delete "); 
nwritedb(satt[0].t_name); 
nwritedbC where "); 
for (i=0; i<n-l; i++){ 
nwritedb(satt[0] .t_name); 
nwritedbC."); 
nwritedb(satt [i] .a_name ); 
nwritedb("="); 
n wri tedb( temp_t able) ; 
nwritedbC."); 
nwritedb(satt[i].a_name); 
nwritedbC and "); 



) 



212 



llwritedb(satt[0].t_name); 

UwritedbC’.’’); 

IIwritedb(satt[i] .a_name); 

nwritedb("="); 

Ilwritedb(temp_table); 

nwritedbC’."); 

IIwritedb(satt[i] .a_name); 

nwritedbC "); 
UsqSync(l,(char *)0); 

) 



1|( ]|c 3|( a|c 1|( :|C :|c :|c )|( :|C :(c 1|( :|c :|c :|c 3|C 4c 3|c ♦ ^ :|c 3|C ♦ 3|c % ]|c ^ 3|c :|c :(c 4c )(m|c :|c3|c % 3(c :|c 3|c :|c ^ 3|c 3|c ]|c % :|c 3|c ^ 3(C 1|( i|c :fc 

This function, when mode is DELETE, deletes the modified tuples from the related media 
tables. 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4cy 



get_rid_image(imageno) 
int imageno; 

{ 



nsqlnit((char *)0); 
nwritedbC'delete "); 
nwritedb(media_name); 
nwritedbC where "); 
nwritedb(media_name); 
nwritedbC."); 
nwritedb("i_id ="); 
nwritedb(temp_table ); 
nwritedbC."); 

nwritedb(satt[imageno].a_name); 
nwritedbC "); 
nsqSync(l,(char *)0); 



y4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c :|c 4c 4c 4c 4c 4c 4c 4c 4c 4c }|c 4c 4c 4c ifc 4c i|c 4c 4c 4c 4c 4c 4c 4c 4c 3(c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



Tliis function, when mode is MODffY, deletes the modified tuples from the related media 
tables. 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 3(c 4c 4c 4( 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4(9|c 4c 4c 4c 4(9|(3|c 4c j 

mod_get_rid_image(imageno, value) 
int imageno; 
int value; 



I 

char media_value[20]; 
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inttostr(value, media_value); 

( 

Ilsqlnit((char *)0); 

IlwritedbC'delete "); 

IIwritedb(media_name); 

IlwritedbC where "); 

IIwritedb(media_name); 

nwritedbr."); 

UwritedbrLid’’); 

IIwritedbr="); 

IIwritedb(media_value); 

HwiitedbC' "); 

UsqSync(l,(char *)0); 

) 



afr 3f( 3(C % 3k 3k 3k 3k 3k 3k 3k 3k 3f( 3f( 3f( ^ 3k S|( 3k 3f( Ik 3|( :f( 3k 3|( 3f( :(( 3fc 3f( :fc 3f( 

This function, when mode is DELETE, deletes the modified tuples from the related media 
tables. 



3k sk 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k ^ 

get_rid_sound(soundno) 
int soundno; 

I 



{ 

Ilsqlnit((char *)0); 
IlwritedbC'delete "); 
IIwritedb(media_name) ; 
IlwritedbC where ”); 
IIwritedb(media_name); 
UwritedbC’."); 

UwritedbC’sJd ="); 

IIwritedb(temp_table); 

IlwritedbC."); 

IIwritedb(satt[soundno].a_name); 
EwritedbC "); 
nsqSync(l,(char ♦)0); 



^3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 



This function, when mode is MODIFY, deletes the modified tuples from the related media 
tables. 



3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 3k 9k 3k 3k 3k 3k 3k 3k 3k 9k J 
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mod_get_rid_sound(soundno, value) 
int soundno; 
int value; 

I 

char sound_value[20]; 
inttostr(value, sound_value); 



nsqlnit((char *)0); 
IlwritedbC'delete "); 
IIwritedb(media_name); 
IlwritedbC where "); 
nwritedb(media_name ) ; 
IIwritedb("."); 
IIwritedb("s_id"); 



IlwritedbC'-'); 
IIwritedb(sound_value); 
nwritedbC "); 
IIsqSync(l,(char *)0); 

I 



4c ^ 3|c ^ ^ ^ 4( 3f( ^ 3(C 4c 3fc 3|C 4c ^ 3fc(( 3|C ^ 



When mode is DELETE, this functions is the main function calling otlier functions to 
delete the tuples from the related media tables. 



4c 4c 4< 4< 4( 4c 4< 4c 4< 4< 4< ^ 4< 4c 4c 4c 4c 4< 4c 4c 4< 4c 4< 4( 4< 4< 4c 4< 4< 4< 4< 4c 4< 4« 4c 4< 4c 4< 4c 4c 4< y 



void ql_print_delete_data() 

{ 

int j= 0 Jk= 04 = 0 ,temp; 
char char_value[21J,a; 
char file_name[20]; 

int integer_value,media_value,found,medial_value; 
float real_value; 
int i=0,select=0; 
int c=0; 

/* # line 3169 "db.sc" ♦/ /* select */ 



Ilsqlnit((char *)0); 

IlwritedbC'retrieve unique(c=(count("); 
nwritedb(temp_table); 
nwritedbC’."); 
nwritedb(satt [0] . a_name) ; 
nwritedbC')))"); 
nsqRinit((char *)0); 
if (nerrtestO = 0) { 
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if (DnextgetO != 0) { 

Ilretdom( 1 ,30,4,&c); 

) /* Unextget */ 

IIsqFlush((char *)0); 

) /♦ Ilentest */ 

) 

1 = 0 ; 

printf('NnThere are %d records that match the DELETE query ”,c); 
if (c==0) I 

printf("NnPress ENTER to continue..."); 
a=getchar(); 
return; 

) 

/* # line 3171 "db.sc" */ /* host code */ 

if (IlcsrOpen((char *)0,"cursor_output’V’dbl",0,temp_table) != 0) { 

II writedb( "retrieve ("); 

for (select=0;select<n-l;select++) { 

Ilwritedb(satt[select].a_name); 

nwritedb("="); 

IIwritedb(temp_table); 

DwritedbC'."); 

nwritedb(satt[select].a_name); 

Uwritedb(","); 

I 

Uwritedb(satt[select].a_name); 

Uwritedb("="); 

IIwritedb(temp_table); 

nwritedbC'."); 

IIwritedb(satt[select].a_name); 

UwritedbC')"); 

UcsrQuery((char *)0); 

) /* IlcsrOpen */ 
printf("Nn"); 
look_more=0; 

1 = 0 ; 

if (c==0) I 
look_more=l; 

) 

/* Fetcli the cursor to the temp_tablerelation which is the intermediate table 

hold the temp_tablefrom the query, then print out the tuple one at a time until no 
more record to print to the user */ 
while (look_more = 0) { 

if (IIcsrFetch((char *)0,"cursor_output","dbl") != 0) { 
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printfC'rccord id %dM",l+l); 
for (i=0;i<n;i++) { 

if (strcmp(satt[i].data_type,"c20")=0) { 

IIcsrRet(l ,32,0,char_value); 

printf("%s : %s'’,satt[i].a_name,char_value); 

I 

if (strcmp(satt[i].data_type, "integer" )=0) { 
ncsrRet(l ,30,4,&integer_value); 
printf("%s : %d ",satt[i].a_name,integer_value); 

) 

if (strcmp(satt[i).data_type,"float")=0) { 

IIcsrRet(l ,3 1 ,4,&real_value); 

printf("%s : %8.2f ",satt[i].a_name 4 ‘eal_value); 

} 

if (strcmp(satt[i].data_type,"image")==0) { 

IIcsrRet(l ,30,4,&media_value); 

printf("%s id is %d ",satt[ij.a_name,media_value); 

) 

if (strcmp(sattfi].data_type,"sound")==0) { 

IlcsrRet( 1 ,30,4,«&medial_value); 
printf("%s %d",satt[i].a_name 4 nedial_value); 

) 

} /* end for select < n*/ 
printf(”Sn"); 

lIcsrEFetch((char *)0); /* fetch the next record to the cursor ♦/ 

1++; /♦ increment 1 as the counter */ 
if (l=c) { /* check if no more data to print */ 

look_more =1; /* exit of the loop */ 

) 

) /* IIcsrFetch */ 

) /* end while */ 

UcsrClose((char *)0,"cursor_output'V’dbl"); /* close the cursor */ 
printfC'Press ENTER to continue 
/* stop before change to the next function so 

the user can see the temp_tableon screen, until he hit ENTER key */ 
a= getcharO; 

/* this for the check for the media selection */ 
if(c=0) 

i=9999; /* if no record for the media data not process any thing */ 
for (i=0;i<n;i++) { 

if (strcmp(satt[iJ.data_type,"image")=0) { 
if (image_flag=TRUE){ 

strcpy(table_array [table_index] .table_name, satt[i] .t_name); 
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found = check_table_name(); /* search for the media name */ 
table_cursor = table_entry; 
strcpy(media_name,satt[ij.a_name); 
get_media_name(); 

printf("Nnmedia_name--> ***%s***", media_name); 
sleep(2); 

get_rid_image(i); 

) 

) 

if (strcmp(satt[i].data_type,"sound")==0) ( 
if (sound_flag==TRUE){ 

strcpy(table_array[table_index].table_name, satt[i].t_name); 
found = check_table_name(); 
table_cursor = table_entry; 
strcpy(media_name ,satt[i] .a_name); 
get_media_name(); 

printf("Nnmedia_name~> ♦**%s***’’, media_name); 
sleep(2); 

get_rid_sound(i); 

I 

) 

) /* end for select < n*/ 
printf("Vi"); 



***************************************************** 



When mode is MODIFY, this function checks tlie media desription if the media data is 
modifed. 

^ I(t 3(c 3|( 3|c 3|( :|c ^ :|c 3|( 4c 3|( 4c i(c ^ 



int mod_chk_description(file_id, descip, err_message) 
STR_path *file_id; 

STR_descip *descip; 
char *err_message; 

I 



int i=0; 

int error = FALSE; 
while (i<l && !error){ 

*err_message = ’VO’; 
if (strcmp(descrp, " ") != 0) 
error = connect_parser(file_id, descrp, err_message); 



I 

if (error) 
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I 

printf("NnThe description for media is NOT acceptable!"); 
if (error == DESCR_WORD_ERR) 

printf("^The system cannot understand the word »%s«", err_message); 
else 

if (error = DESCR_STRUCTURE_ERR) 
printf("\nTlie system cannot interpret the phaseNn »%s«", 
err_message); 

else 

printfC'\nThe program error occurred in prologFSn"); 
printf("\nPlease modify it. Thank you!"); 
putchar(’\007’); 
while((c=getchar()) != ’Nn’) 



retum(TRUE); 

) 

else 

retum(FALSE); 



ifc aft 



Gets all atts of a given table and puts them in satt array for retrieving all the attributes 
of that table. 



void get_all_atts_of_a_given_table() 

{ 

int i = 0, 
count = 0; 

count = table_array[table_list[table_cursor]].att_count; 
n = count; 

att_cursor = table_array[table_list[table_cursor]].att_entry; 
for (i = 0; i < count; i++) /* Loop to get value for each attribute */ 
{ 

strcpy(satt[i] .t_name, stab[0].t_name); 
strcpy(satt[i] .a_name, att_array [att_cursor]. att_name); 
strcpy(satt[i].data_type, att_array[att_cursor].data_type); 
att_cursor = att_array[att_cursor].next_index; 

) /* End of for loop */ 

) /* End of get_tuple_value */ 



>k 4( ik >k ak % sK Ik 4c 4c ak % % sk ift j|( Ik % ik 3k 

The main procedure for the retrieve operation 
m and n is the parameter for table and attribute lepectively 
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For retrieve table name and attribute name from the user 
This function also handles DELETE and MODIFY operations 

3|C 3(( SK 4c SK )|< 3|C 3k 3k 9i( 3k 9|< 3k 3k 3k ak 3k 3k ak ak ak 3k 9|C 3k 4c 3|C % 3(C % 3k 9|( % 9|< % % 9k SK 3k % 3k 3(C >tc 3|C 

void retrieve(mode) 



int entry; 

int count; 

int h,r,flag=TRUE; 

int o, u; 

char buf0[13]; 

char bufl[13]; 

char buf2[13]; 

char buf3[13]; 

char buf4[13]; 

char temp[3]; 

char aggregate0[3]; 

char aggregate 1 [3]; 

char aggregate2[3]; 

char aggregate3[3]; 

char aggiegate4[3]; 

int i,j^,y^,found=0; 

int level_no=0, counter=l; 

char table_name [20] ,attname[20] ,att_type[20] , Ans .More , a; 

char choice; 

init_buffer(buff,100); 

init_buffer(temp_table 1 ,20); 

init_buffer(temp_table2,20); 

init_buffer(temp_table,20); 

choice=’0’; 

m=0; 

i=0; 

k=0; 

gcond=0; 

numcon=0; 

aggregate_found=FALSE; 

more_selections=TRUE; 

more_levels=TRUE; 



initO; 

drop_temp_media_tables(); 

while (more_levels != FALSE)! 
while (more_selections != FALSE)! 
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init_buffer(buff,l 00); 

printf("ViEnter table name to hold the temporary result of the query: "); 
gets(buff); 

strcpy(temp_table, buff); 
init_buffer(buff, 1 00); 

help_tables(buff); 

while (i<=table_count) | /* check loop with the maximum number table */ 
for (j=0;j<13;j++) /* each table has less than or equal to 12 char only */ 

I 

if (buff[k]==44) { 
stab[i].t_name(j]= ^D’; 
j=55; 
k=k+l; 
i=i+l; 

I 

else I 

if (bufffk] = ’ ’) 

j=55; /* Skip the white space if the user typped in*/ 
else 

stab[i] .t_name [j]=buff[k] ; 

if (buff[k]=0) I /* if null value in buffer (end of string) */ 

m=i+l; 

j=55; 

i=1000; 

) 

k=k+l; 

) 

) 

)/*end while*/ 

strcpy(temp_table 1 , stab[0] .t_name); 
for (i=0;i<m;i-t-+) { 

strcpy (table_array [table_index] .table_name , stab[i] .t_name) ; 
found = check_table_name(); /* search for the media name */ 
if (!(found)) { 

/* check for the valid table name if not found then return to calling program */ 
putchar(’N007’); 

printf("VnTable %s not found please redo again !!!" ,stab[i].t_name); 

printf("NnPress ENTER to continue !!"); 

a=getchar(); 
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return; 

) /* end else */ 

) /* end for loop */ 

/* Specify the join condition if there are more than 2 table select */ 
helpJoinO; 

I* Select attribute */ 
init_buf fer(buff , 100); 
i = 0; 
j = 0; 
k = 0; 

X = 0; 

z = 0; 

if (mode = RTRVE_MODE){ 

/* Select attribute for one table at a time */ 
for (y=0;y<m;y++) { 
printf("NnTable %s ", stab[y].t_name); 
strcpy(buff,"?"); 
while (strcmp(buff,"?")==0) { 

printf('ViSelect the attribute(s) separated by comma <,> - <?> for HELP ! -Nnhit 
<ESC> for no attribute"); 

printf(”\nSELECT ATTRIBUTE(S) : "); 
gets(buf0; 

if (strcmp(buff,"?")==0) { 
p_att(stabty].t_name); 

) /* end if buff= "?" */ 

) I* end while need help */ 

while (i < 100) { 
for (j=0;j<13;j-H-){ 
if (buff[k]=27) { 
goto start_again; 

) 

if (buff[k]=44) I 
buf0|j]= 

strcpy(satt[x] .t_name , stab[y] .t_name); 

init_buffer(temp,3); 

init_buffer(aggregate0,3); 

u=x; 

aggregate_found=FALSE; 

aggregate_found=check_aggregate(bufO, temp, aggregate_found); 
printf("^"); 
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strqpy(aggregateO, temp); 
if (aggregate_found=TRUE){ 
get_attribute(bufO, satt[u].a_name); 
printf('V'); 

if (strcmp(aggregateO,"cnt")=0) 
satt[u] .aggregate_type= 1 ; 
if (strcmp(aggregateO,"sum")=0) 
satt[u].aggregate_type=2; 
if (strcmp(aggregateO,"avg")=0) 
satt[u] .aggregate_type=3 ; 
if (strcmp(aggregateO,"max")=0) 
satt[u].aggregate_type=4; 
if (strcmp(aggregateO,"min")==0) 
satt [u J .aggregate_type=5 ; 
printf("^n"); 

) 

if (aggregate_found=FALSE)( 
strq>y(satt[u].a_name,bufO); 
satt [u] . aggregate_type=0; 
printf("Nn"); 
clr_scr(); 

) 

j=55; 

k=k+l; 

i=i+l; 

x=x+l; 

) 

else I 

if (buff[k] = ’ ’) 

j=55; /* Skip the white space if user typped in */ 
else! 

buf0[j]=bufiflk]; 

) 

if (buff[k]=0) { 

strcpy(satt[xj.t_name, stab[y].t_name); 

init_buffer(temp,3); 

init_buffer(aggregateO,3); 

u=x; 

aggregate_found=FALSE; 

aggregate_found=check_aggregate(bufO, temp, aggregate_found); 
printfCV’); 

strcpy(aggregateO, temp); 
if (aggregate_found=TRUE)( 



223 



get_attribute(bufO, satt[u].a_name); 
printf(’Vi"); 

if (strcmp(aggregateO,"cnt")==0) 
satt[u].aggregate_type= 1 ; 
if (strcmp(aggregateO,"sum")=0) 
satt[u].aggregate_type=2; 
if (strcmp(aggregateO,"avg")==0) 
satt [u] . aggregate_type=3 ; 
if (strcmp(aggregateO,"max")=0) 
satt[u].aggregate_type=4; 
if (strcmp(aggregateO,"min")=0) 
satt [u ] . aggregate_type=5 ; 
printf("\n"); 

) 

if (aggregate_found=:FALSE){ 
strq>y(satt[u].a_name,bufO); 
sattfu].aggregate_type=0; 
printfCV’); 
clr_scr(); 



n=x+l; 

j=55; 

i=1000; 



k=k+l; 

} I* end else ♦/ 

) /* end for j < 13 */ 

)/*end while */ 
x=x+l; 
start_again: 
k=0; 

init_buffer(buff, 1 00); 
i=0; 

) /* End select attribute for each table go to the next table */ 



clr_scr(); 

for (i=0;i<n;i++) | 

printf('Vi%s.%s", satt[i].t_naine,sattfi].a_name); 
getatttype(satt[i].t_name,satt[i].a_name,satt[i].data_type); 

) 

} /* closure of if mod =ret */ 
if ((mode==DEL_MODE) II (mode=MOD_MODE)){ 
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table_cursor = table_entry; 
get_all_atts_of_a _given_table(); 

) 

printf("Nn"); 

cond=0; 

printfCNnAny condition ? (y/n) 

Ans=yes_no_answer(); 
if ((Ans==121)ll(Ans=89)){ 

choice=nested_processcondition(choice ,teinp_table 1 ,teinp_tablc2,teinp_table); 

) 

if (choice=’0'){ 
ql_retrieve(temp_table); 
ql_printdata(temp_table); 

) 

init_buffer(buff , 100); 

query_for_intersect_union(choice,temp_tablel,temp_table2,temp_table); 
printf("''nMore selections at this level ? (y/n)"); 

Ans=yes_no_answer() ; 
if ((Ans=12J)ll(Ans=89)){ 
more_selections=TRUE; 
choice=’0’; 
y = 0; 
j = 0; 

X = 0; 

z = 0; 

m=0; 

i=0; 

k=0; 

cond=0; 

gcond=0; 

numcon=0; 

n=0; 

found=0; 

initO; 

drop_temp_media_tables(); 
init_buffer(buff , 1 00); 
init_buffer(teinp_tablel ^0); 
init_buffer(temp_table2,20); 
init_buffer(temp_table,20); 

} 
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else I 

more_selections=FALSE; 

printf('Vi"); 



printfC^nMore levels ? (y/n)"); 

Ans=yes_no_answer() ; 
if ((Ans==121)ll(Ans=89)){ 
more_levels=TRUE; 
more_selections=TRUE; 
le vel_no=level_no+ 1 ; 
choice=’0’; 
y = 0; 
j = 0; 

X = 0; 

z = 0; 

m=0; 

i=0; 

k=0; 

cond=0; 

gcond=0; 

numcon=0; 

n=0; 

init(); 

drop_temp_media_tables(); 
init_buffer(buff, 100); 
init_buffer(temp_table 1 ,20); 
init_buffer(temp_table2,20); 
init_buffer(temp_table,20); 
found=0; 

) 

else{ 

more_selections=FALSE; 

more_levels=FALSE; 

I 

)/* end whde more levels */ 

if (mode=DEL_MODE)| 
image_flag=TRUE; 
sound_flag=TRUE; 

printf("NnDo want to continue with DELETION ? (y/n) ;:"); 

Ans=yes_no_answer(); 

if ((Ans==110)ll(Ans=78)) 
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goto qquit; 

ql_print_delete_data(); 
delete_formatted_part_for_modify 0 ; 
drop_table(temp_table); 
image_flag = FALSE; 
sound_flag = FALSE; 

I 

if (mode=MOD_MODE){ 
formatted_flag = FALSE; 
image_flag = FALSE; 
sound_flag = FALSE; 
h=prmt_for_modify(h); 
for (r=0; r<h; r++){ 
formatted_flag = FALSE; 
image_flag = FALSE; 
sound_flag = FALSE; 
media_counter - 0; 
process_tuple_by_tuple(r) ; 
mod_display_tuple(mode, media_counter); 
store_data(mode); 
mod_ql_insert_tuple(mode); 
att_cursor = 0;/*to initialize the value arrays */ 
img_index = 0; 
snd_index = 0; 
i_index = 0; 
f_index = 0; 
c_index = 0; 
delete_for_modify(r); 

) 

delete_formatted_part_for_modify(); 
drop_table(temp_table); 
image_flag = FALSE; 
sound_flag = FALSE; 

) 

qquit: 

printf("\n "); 

) /* End procedure */ 
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